{-# 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 Data.Time.LocalTime (getZonedTime)
import Data.Time.Format (formatTime, defaultTimeLocale)

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