On 2 April 2012 14:41, Michael Snoyman <mich...@snoyman.com> wrote: > import Data.Time > > main = do > now <- getCurrentTime > let (_, month, day) = toGregorian $ utctDay now > putStrLn $ > if month == 4 && day == 1 > then "It's a joke" > else "It's real"
import Data.Time main = do now <- getCurrentTime let (_, month, day) = toGregorian $ utctDay now putStrLn $ if month == 4 && day == 1 then "It's a joke" else "It's real. (This output is not a joke. But run this program again to be sure.)" _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe