Re: [Haskell-cafe] A Modest Records Proposal

On 2 April 2012 14:41, Michael Snoyman 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.)"