aboutsummaryrefslogtreecommitdiff
path: root/pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-10-27 20:39:20 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2017-10-27 20:39:20 -0700
commit007236e8eb7be4c1330542b7cc5f57266a4ad29f (patch)
treeb75a4e7690a7ffe2168602d7baef84b182c43d9a /pandoc.hs
parentff16db1aa306113132cc6cfaa70791a0db75e0a5 (diff)
downloadpandoc-007236e8eb7be4c1330542b7cc5f57266a4ad29f.tar.gz
pandoc.hs - removed some cruft.
Diffstat (limited to 'pandoc.hs')
-rw-r--r--pandoc.hs8
1 files changed, 2 insertions, 6 deletions
diff --git a/pandoc.hs b/pandoc.hs
index ad0e914be..55d826398 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1,7 +1,3 @@
-{-# LANGUAGE CPP #-}
-
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TupleSections #-}
{-
Copyright (C) 2006-2017 John MacFarlane <jgm@berkeley.edu>
@@ -35,9 +31,9 @@ writers.
module Main where
import qualified Control.Exception as E
import Text.Pandoc.App (convertWithOpts, defaultOpts, options, parseOptions)
-import Text.Pandoc.Error (PandocError, handleError)
+import Text.Pandoc.Error (handleError)
main :: IO ()
main = E.catch (parseOptions options defaultOpts >>= convertWithOpts)
- (\(e :: PandocError) -> handleError (Left e))
+ (\e -> handleError (Left e))