More verbosity
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 10:37:01 +0000 (10:37 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 10:37:01 +0000 (10:37 +0000)
CrowdSurfer.hs

index 73f43fd..e824ec3 100644 (file)
@@ -25,7 +25,8 @@ nextRoom = do
        seen <- gets M.keys
        case filter (`notElem` seen) [0..9] of
          []  -> gotoBest
-         r:_ -> send (Goto r)
+         r:_ -> do say $ "Testing room " ++ show r
+                   send (Goto r)
 
 gotoBest :: DayMonad UserData ()
 gotoBest = do