{-# LANGUAGE OverloadedStrings #-}

module Logger
  ( info
  ) where

import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as T (appendFile)

import Time (formatCurrentLocale)

info :: Text -> IO ()
info message = do
  time <- formatCurrentLocale "[%d/%m/%Y, %H:%M]"
  T.appendFile "logs" $
    T.concat
      [ time
      , " - "
      , message
      , "\n"
      ]