tidy only

nbogie · Mar 30, 2013 · b47cb9a · b47cb9a
1 parent 110afb5
commit b47cb9a
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Gui.hs b/Gui.hs
@@ -78,7 +78,14 @@ type ClickHandler = Event -> GS -> GS
 -- (board in play, undo list, fresh boards, log msgs)
 data GameMode = SplashScreen | GamePlay deriving (Show, Eq)
 
-data GS = GS{ b::Board, undos::[Board], nextBoards::[Board], logs::[String], clickHdlr::ClickHandler, hilitPosition :: [Position], gameMode :: GameMode}
+data GS = GS { b             :: Board
+             , undos         :: [Board]
+             , nextBoards    :: [Board]
+             , logs          :: [String]
+             , clickHdlr     :: ClickHandler
+             , hilitPosition :: [Position]
+             , gameMode      :: GameMode 
+             }
 resetHandlers gs = gs { clickHdlr = handleSelect, hilitPosition = [] } 
 
 handleInputInSplash :: Event -> GS -> GS