{-# 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
      ]