Skip to content

Instantly share code, notes, and snippets.

@hatashiro

hatashiro/code-poet.hs

Last active October 11, 2016 16:24
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save hatashiro/10a0d46f3d843fde547636266d8e80e4 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save hatashiro/10a0d46f3d843fde547636266d8e80e4 to your computer and use it in GitHub Desktop.
Download ZIP
Today's Haskell Poet
Raw
code-poet.hs
timestampPath :: IO FilePath
timestampPath = ???
-- using do, more readable.
writeTimestamp :: UnixTime -> IO ()
writeTimestamp x = do
path <- timestampPath
writeFile path (encodeUnixTime x)
-- using point-free style, feeling good.
writeTimestamp :: UnixTime -> IO ()
writeTimestamp = (timestampPath >>=) . flip writeFile . encodeUnixTime
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment