more strictness to Types.hs: UIState

This commit is contained in:
tpajenka 2014-05-20 20:38:02 +02:00
parent 74fc3af201
commit e72e8c9333

View File

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