Ticket #5205: forever.hs

File forever.hs, 60 bytes (added by akio, 4 years ago)

test case

Line 
1import Control.Monad
2
3main = x >> x
4x = forever $ return ()