diff --git a/Main.hs b/Main.hs
index f3effef..407ae1c 100644
--- a/Main.hs
+++ b/Main.hs
@@ -15,7 +15,7 @@ main = do
       putStrLn $ show $ bucket statement
       putStr $ serializeLatexTruthTable statement
   where
-    fail err@(ParseError pos message) =
+    fail (ParseError pos message) =
       putStrLn $
         "parse error at position "
         <> show pos