Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (7 sloc) 179 Bytes
module Inf where
import Data.Time
import Data.Time.Clock
mon :: Int -> IO ()
mon a = putStrLn (show a)
timeFun :: IO Day
timeFun = getCurrentTime >>= \d -> return $ utctDay d