Exit failure when there are parsing errors

1 files changed, 0 insertions, 34 deletions

diff --git a/src/RenderError.hs b/src/RenderError.hs
deleted file mode 100644
index 9b9732f..0000000
--- a/src/RenderError.hs
+++ /dev/null
@@ -1,34 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module RenderError
-  ( birthdate
-  , config
-  ) where
-
-import System.IO (stderr)
-
-import Data.Text (Text)
-import qualified Data.Text as T
-import qualified Data.Text.IO as T
-
-import qualified Model.Path as Path
-
-birthdate :: Text -> IO ()
-birthdate err =
-  T.hPutStr stderr $
-    T.concat
-      [ "Error while parsing file "
-      , T.pack Path.birthdate
-      , ":\n"
-      , err
-      ]
-
-config :: Text -> IO ()
-config err =
-  T.hPutStr stderr $
-    T.concat
-      [ "Error while parsing config file "
-      , T.pack Path.config
-      , ":\n"
-      , err
-      ]