Document everything exported
[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 main = parttyMain dcb ncb ()
19