Re: [Haskell-cafe] A Modest Records Proposal

On Mon, Apr 2, 2012 at 16:30, Evan Laforge wrote:

On Mon, Apr 2, 2012 at 5:41 AM, Michael Snoyman wrote:

...

On Mon, Apr 2, 2012 at 3:38 PM, Alp Mestanogullari 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"

My strategy next year will be to not read any email on the 1st. I'll just wait until the 2nd to read it all. Foolproof!

Hmm, nope, still failed. I was following along until it got to HERP at which point I scrolled back up to see that it was sent on the 1st and then continued to read and LOL. -R. Kyle Murphy -- Curiosity was framed, Ignorance killed the cat.