Make Dummy.hs compile
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:32:28 +0000 (00:32 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:32:28 +0000 (00:32 +0000)
Dummy.hs

index e166a2a..63093c2 100644 (file)
--- a/Dummy.hs
+++ b/Dummy.hs
@@ -5,7 +5,7 @@ import System.Random
 import Partty
 
 dcb :: DayCallback ()
-dcb DayStarts = do
+dcb (DayStarts _) = do
        liftIO $ putStrLn "Good Morning!"
        room <- liftIO $ randomRIO (0,9)
        send (Goto room)