twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 04:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use deepseq instead of parallel

Browse Source
This commit is contained in:
Ruben Astudillo
2021-11-23 20:35:40 -03:00
parent 44fb597350
commit b75d0d265e
4 changed files with 20 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Util/ExtensibleState.hs
View File

@@ -94,7 +94,7 @@ modify f = put . f =<< get
-- | Like @modify@ but the result value is applied strictly in respect to
-- the monadic environment.
modify' :: (ExtensionClass a, XLike m) => (a -> a) -> m ()
modify' f = (\a -> let res = f a in res `seq` put res) =<< get
modify' f = (put $!) . f =<< get
-- | Add a value to the extensible state field. A previously stored value with the same
-- type will be overwritten. (More precisely: A value whose string representation of its type