module Lib
    (
    curTimeString
    ) where

import Data.Time.Clock

curTimeString :: IO String
curTimeString = do
    t <- getCurrentTime
    return $ show $ t