Code reoder
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:21:20 +0000 (00:21 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:21:20 +0000 (00:21 +0000)
Partty.hs

index 23ef3d5..a697dce 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -19,11 +19,6 @@ data Hint = PartyAt Place
          | NoLiar Player
      deriving (Show, Eq)
 
-data PlayerInformation = PlayerInformation
-       { piSeen        :: [Day]
-       , piHints       :: [(Day,Hint)]
-       }
-
 data Score = NoScore | ToFew | Scored
                     deriving (Show, Eq)
 
@@ -75,6 +70,11 @@ data ClientMessage = Tell Player Hint
 type DayCallback d   = DayMessage -> DayMonad d ()
 type NightCallback d = NightMessage -> NightMonad d ()
 
+data PlayerInformation = PlayerInformation
+       { piSeen        :: [Day]
+       , piHints       :: [(Day,Hint)]
+       }
+
 data ParttyState = ParttyState
        { psMyName      :: Player
        , psDay         :: Day