blob: 9b9732f280f353929e922f38d773820999f4a6f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
{-# 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
]
|
