Go to a random room
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:34:13 +0000 (23:34 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:34:13 +0000 (23:34 +0000)
Dummy.hs

index 9932a6d..e166a2a 100644 (file)
--- a/Dummy.hs
+++ b/Dummy.hs
@@ -1,12 +1,14 @@
 import Control.Monad.Trans
 import Control.Monad.Writer
+import System.Random
 
 import Partty
 
 dcb :: DayCallback ()
 dcb DayStarts = do
        liftIO $ putStrLn "Good Morning!"
-       send (Goto 1)
+       room <- liftIO $ randomRIO (0,9)
+       send (Goto room)
 
 dcb e = liftIO  $ putStrLn (show e)