to get the date just use
date :: IO (Integer,Int,Int) -- :: (year,month,day) date = getCurrentTime >>= return . toGregorian . utctDay