Skip to content

Instantly share code, notes, and snippets.

@blizzarddreams

blizzarddreams/hello.hs

Created December 24, 2015 01:03
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save blizzarddreams/47db368852993b78fb11 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save blizzarddreams/47db368852993b78fb11 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
hello.hs
listen :: Handle -> IO ()
listen h = forever $ do
s <- hGetLine h
putStrLn s
where
forever a = do a; forever a
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment