From e72e8c933391da036bbd9e024ccb7e25c202d434 Mon Sep 17 00:00:00 2001
From: tpajenka <tpajenka@foo>
Date: Tue, 20 May 2014 20:38:02 +0200
Subject: [PATCH] more strictness to Types.hs: UIState

---
 src/Types.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Types.hs b/src/Types.hs
index 1574357..3ea670e 100644
--- 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