line up ::, space after comma, use this syntax:

data GameGUI = 
   GameGUI { foo :: Foo
                    , bar :: Bar
                    }