Skip to content

Instantly share code, notes, and snippets.

@tmtk75

tmtk75/io.hs

Created January 6, 2013 00:40
Show Gist options
  • Save tmtk75/4464531 to your computer and use it in GitHub Desktop.
Save tmtk75/4464531 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
io.hs
import System.IO
main = do
handle <- openFile "haiku.txt" ReadMode
contents <- hGetContents handle
putStr contents
hClose handle
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment