jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-01 17:32:52 +03:00
Code Issues Projects Releases Wiki Activity

EventState: make fields strict

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-07-17 09:26:42 -07:00
parent 4297ca073e
commit 301015a930
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Brick/Types/Internal.hs
View File

@ -227,11 +227,11 @@ data CacheInvalidateRequest n =
deriving (Ord, Eq)
data EventState n s =
ES { esScrollRequests :: [(n, ScrollRequest)]
, cacheInvalidateRequests :: S.Set (CacheInvalidateRequest n)
, requestedVisibleNames :: S.Set n
, applicationState :: s
, nextAction :: NextAction s
ES { esScrollRequests :: ![(n, ScrollRequest)]
, cacheInvalidateRequests :: !(S.Set (CacheInvalidateRequest n))
, requestedVisibleNames :: !(S.Set n)
, applicationState :: !s
, nextAction :: !(NextAction s)
}
-- | An extent of a named area: its size, location, and origin.