mirror of https://github.com/voidlizard/hbs2
37 lines
499 B
Haskell
37 lines
499 B
Haskell
module Main where
|
|
|
|
import HBS2.Clock
|
|
|
|
import Control.Concurrent.Async
|
|
import UnliftIO.Exception
|
|
import System.IO
|
|
import Control.Monad
|
|
|
|
testOne :: IO ()
|
|
testOne = do
|
|
|
|
t1 <- async $ forever $ do
|
|
pause @'Seconds 1
|
|
print "ONE"
|
|
|
|
t2 <- async $ forever $ do
|
|
pause @'Seconds 2
|
|
print "TWO"
|
|
|
|
link t1
|
|
link t2
|
|
|
|
print "testOne DONE"
|
|
pause @'Seconds 10
|
|
|
|
main = do
|
|
hSetBuffering stdout LineBuffering
|
|
|
|
testOne
|
|
|
|
pause @'Seconds 30
|
|
|
|
print "WTF?"
|
|
|
|
pure ()
|