[PATCH master] Fix X509CertError definition in Haskell codebase

[Iustin Pop]

Thanks Dato for catching this.
---
On Thu, Oct 25, 2012 at 04:25:46PM +0100, Dato Simó wrote:
> I see this has been LGTM'd by Guido already, these are some minor
> questions that I had about the first half of the patch, of which I had
> completed review.
> 
> On Fri, Oct 12, 2012 at 15:20 +0200, Iustin Pop <ius...@google.com> wrote:
> 
> > +  , ("X509CertError", [excErrMsg])
> 
> The first argument of X509CertError is the certificate filename (in this
> case, Python docstring and actual usage do match).

 htools/Ganeti/Errors.hs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/htools/Ganeti/Errors.hs b/htools/Ganeti/Errors.hs
index cd4c629..052d1b3 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])
-- 
1.7.7.3