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