Ticket #7528: mvarlock1.lhs

File mvarlock1.lhs, 209 bytes (added by timthelion, 3 years ago)

Properly formated version of post.

Line 
1>{-# LANGUAGE ScopedTypeVariables #-}
2>import Control.Concurrent
3
4>main = do
5> putStrLn "Hello"
6> forkOS neverEnds
7> putStrLn "Bye bye" --We never get here.
8
9>neverEnds = do
10> let (a::String) = a
11> putStrLn a