Smaller file
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:03:19 +0000 (00:03 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:03:19 +0000 (00:03 +0000)
DeafAndSilent.hs

index 3f8ec83..0b6574e 100644 (file)
@@ -2,13 +2,11 @@ import Control.Monad.Trans
 import Control.Monad.State
 import Control.Monad.Writer
 import System.Random
-
 import Partty
 
 {- 
  - Stupid player: Goes to a party it knows about for sure, otherwise guesses
  -}
-
 type UserData = Maybe Place
 
 dcb :: DayCallback UserData
@@ -22,22 +20,17 @@ dcb DayStarts = do
                        liftIO $ putStrLn $ "Yay, I know where to go! (" ++ show room ++")"
                        return room
        send (Goto room)
-
 dcb e = return ()
 
 ncb :: NightCallback UserData
 -- Round over, forget everything
 ncb (NightEnds) = put Nothing
-
 -- We have the hint, remember it
 ncb (PartyHint room) = put (Just room)
-
 -- Output the score
 ncb (GotScore score) = liftIO $ putStrLn $ "Got score: " ++ show score
 
 ncb e = return ()
 
-
-main = do
-       runPartty "localhost" 1111 "me2" "passwd" dcb ncb Nothing
+main = runPartty "localhost" 1111 "me2" "passwd" dcb ncb Nothing