Make Dummy.hs react on something
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:11:46 +0000 (23:11 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 23:11:46 +0000 (23:11 +0000)
Dummy.hs

index c224c02..9932a6d 100644 (file)
--- a/Dummy.hs
+++ b/Dummy.hs
@@ -1,9 +1,16 @@
 import Control.Monad.Trans
+import Control.Monad.Writer
 
 import Partty
 
+dcb :: DayCallback ()
+dcb DayStarts = do
+       liftIO $ putStrLn "Good Morning!"
+       send (Goto 1)
+
 dcb e = liftIO  $ putStrLn (show e)
 
+ncb :: NightCallback ()
 ncb e = liftIO  $ putStrLn (show e)