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