msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

length

Browse Source
This commit is contained in:
crumbtoo
2023-11-29 11:39:01 -07:00
parent 3ce3b01e2d
commit 60162f30f3
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/TIM.hs
View File

@@ -483,7 +483,7 @@ doAdmin = doStats
-- | is the heap larger than some arbitrary number i declared "bloated"? -- | is the heap larger than some arbitrary number i declared "bloated"?
isHeapLarge :: TiState -> Bool isHeapLarge :: TiState -> Bool
isHeapLarge st = hSize (st ^. tiHeap) >= triggerSize isHeapLarge st = length (st ^. tiHeap) >= triggerSize
where triggerSize = 50 where triggerSize = 50
---------------------------------------------------------------------------------- ----------------------------------------------------------------------------------