summaryrefslogtreecommitdiff
path: root/libraries/base/tests/IO/concio001.hs
blob: 786a311ce57f78e1fa54b8f7b50538cf87366719 (plain)
1
2
3
4
5
6
import Control.Concurrent

main = do
  forkIO $ do threadDelay  100000; putStrLn "child"
  getLine
  putStrLn "parent"