more strictness to Types.hs: UIState

2014-05-20 20:38:02 +02:00
parent 74fc3af201
commit e72e8c9333
1 changed files with 3 additions and 3 deletions
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -147,9 +147,9 @@ data GLState = GLState

 data UIState = UIState
    { _uiHasChanged        :: !Bool
-    , _uiMap               :: Map.HashMap UIId (GUIWidget Pioneers)
-    , _uiRoots             :: [UIId]
-    , _uiButtonState       :: UIButtonState
+    , _uiMap               :: !(Map.HashMap UIId (GUIWidget Pioneers))
+    , _uiRoots             :: !([UIId])
+    , _uiButtonState       :: !UIButtonState
    }

 data State = State