From 76b051f7b44f0df850aafe2f57a44f0486b8b282 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 15 Apr 2017 11:59:48 +0200
Subject: Fixed shadowing warnings

---
 src/Text/Pandoc/Error.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs
index 4ead6aba8..637db6187 100644
--- a/src/Text/Pandoc/Error.hs
+++ b/src/Text/Pandoc/Error.hs
@@ -57,7 +57,7 @@ data PandocError = PandocIOError String IOError
                  | PandocPDFProgramNotFoundError String
                  | PandocPDFError String
                  | PandocFilterError String String
-                 | PandocAppError Int String
+                 | PandocAppError String
                  deriving (Show, Typeable, Generic)
 
 instance Exception PandocError
@@ -88,10 +88,10 @@ handleError (Left e) =
     PandocFailOnWarningError -> err 3 "Failing because there were warnings."
     PandocPDFProgramNotFoundError pdfprog -> err 47 $
         pdfprog ++ " not found. " ++ pdfprog ++ " is needed for pdf output."
-    PandocPDFError log -> err 43 $ "Error producing PDF.\n" ++ log
-    PandocFilterError filter msg -> err 83 $ "Error running filter " ++
-        filter ++ ":\n" ++ msg
-    PandocAppError ec s -> err ec s
+    PandocPDFError logmsg -> err 43 $ "Error producing PDF.\n" ++ logmsg
+    PandocFilterError filtername msg -> err 83 $ "Error running filter " ++
+        filtername ++ ":\n" ++ msg
+    PandocAppError s -> err 1 s
 
 err :: Int -> String -> IO a
 err exitCode msg = do
-- 
cgit v1.2.3