[Haskell-cafe] A Modest Records Proposal

[Michael Snoyman]

On Mon, Apr 2, 2012 at 3:38 PM, Alp Mestanogullari <alpmestan at gmail.com> wrote:
> Lesson learned: for next year, write a Haskell program that tells if a given
> -cafe thread or reddit discussion is a April Fool's joke or not.

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"