From: Joachim Breitner <mail@joachim-breitner.de>
Date: Fri, 4 Jul 2008 23:34:13 +0000 (+0000)
Subject: Go to a random room
X-Git-Url: http://git.nomeata.de/?p=darcs-mirror-haskell-partty.git;a=commitdiff_plain;h=3c28422aef5f7f3330be722e4427ea0d601e3679

Go to a random room
---

diff --git a/Dummy.hs b/Dummy.hs
index 9932a6d..e166a2a 100644
--- 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)