Simple dummy code
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:39:11 +0000 (22:39 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:39:11 +0000 (22:39 +0000)
Dummy.hs

index e77f4e8..64c9edc 100644 (file)
--- a/Dummy.hs
+++ b/Dummy.hs
@@ -1,24 +1,14 @@
 module Dummy where
 
-cb Disconnect = do
-       liftIO $ putStrln "I’m gone"
+import Control.Monad.Trans
 
-cb (GotHint player hint) = do
-       pi <- getPlayerInfo player
-       somewhere <- getU
-       when (meist nicht gelogen (pi)) $ case hint of
-               PartyAt there -> setU there
-               NoPartyAt there -> if (there == somewhere) then 
-                       tell otherplayer (Liar player)
-       
-cb (GotHint player hint) = do
-       pi <- getPlayerInfo player
-       somewhere <- getU
-       when (meist nicht gelogen (pi)) $ do
-               tellPlayer player (PartyAt somewhere)
+import Partty
+
+dcb e = liftIO  $ putStrLn (show e)
+
+ncb e = liftIO  $ putStrLn (show e)
 
-cb _ = return ()       
 
 main = do
-       runPartty "localhost" 1111 "me" cb
+       runPartty "localhost" 1111 "me" "passwd" dcb ncb