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