9932a6db673c1059aabc23f0e45c801f92e72946
[darcs-mirror-haskell-partty.git] / Dummy.hs
1 import Control.Monad.Trans
2 import Control.Monad.Writer
3
4 import Partty
5
6 dcb :: DayCallback ()
7 dcb DayStarts = do
8         liftIO $ putStrLn "Good Morning!"
9         send (Goto 1)
10
11 dcb e = liftIO  $ putStrLn (show e)
12
13 ncb :: NightCallback ()
14 ncb e = liftIO  $ putStrLn (show e)
15
16
17 main = do
18         runPartty "localhost" 1111 "me2" "passwd" dcb ncb ()
19