From bca39f5c6c43e8f92650c60c19ecc1ea06bb5ba9 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Fri, 26 Oct 2012 10:22:21 +0200
Subject: [PATCH] Fix X509CertError definition in Haskell codebase
Thanks Dato for catching this.
Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Michael Hanselmann <hansmi@google.com>
---
htools/Ganeti/Errors.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/htools/Ganeti/Errors.hs b/htools/Ganeti/Errors.hs
index cd4c62948..052d1b384 100644
--- a/htools/Ganeti/Errors.hs
+++ b/htools/Ganeti/Errors.hs
@@ -88,7 +88,8 @@ $(genException "GanetiException"
, ("UnitParseError", [excErrMsg])
, ("ParseError", [excErrMsg])
, ("TypeEnforcementError", [excErrMsg])
- , ("X509CertError", [excErrMsg])
+ , ("X509CertError", [ ("certFileName", [t| String |])
+ , excErrMsg ])
, ("TagError", [excErrMsg])
, ("CommandError", [excErrMsg])
, ("StorageError", [excErrMsg])
--
GitLab