From a9bc46efe3624344573f96fafa8af194016183a2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 22 Nov 2015 20:36:59 +0100
Subject: Exit failure when there are parsing errors

---
 src/Exit.hs | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 src/Exit.hs

(limited to 'src/Exit.hs')

diff --git a/src/Exit.hs b/src/Exit.hs
new file mode 100644
index 0000000..1a08931
--- /dev/null
+++ b/src/Exit.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Exit
+  ( exitWithParsingError
+  ) where
+
+import System.IO (stderr)
+import System.Exit (exitFailure)
+
+import Data.Text (Text)
+import qualified Data.Text as T
+import qualified Data.Text.IO as T
+
+exitWithParsingError :: FilePath -> Text -> IO ()
+exitWithParsingError path err = do
+  T.hPutStr stderr $
+    T.concat
+      [ "Error while parsing file "
+      , T.pack path
+      , ":\n"
+      , err
+      ]
+  exitFailure
-- 
cgit v1.2.3