git.iko.soy/typeable/wai
on master help sign in
Added missing bang, which seems to resolve the memory leak in #728
be32159ericcro
auto-update/Control/Reaper.hs+1−1
compare with master
unifiedsplit
@@ -156,7 +156,7 @@ add settings@ReaperSettings{..} stateRef tidRef item =
156 where
156 where
157 cons NoReaper = let !wl = reaperCons item reaperEmpty
157 cons NoReaper = let !wl = reaperCons item reaperEmpty
158 in (Workload wl, spawn settings stateRef tidRef)
158 in (Workload wl, spawn settings stateRef tidRef)
159− cons (Workload wl) = let wl' = reaperCons item wl
159+ cons (Workload wl) = let !wl' = reaperCons item wl
160 in (Workload wl', return ())
160 in (Workload wl', return ())
161
161
162spawn :: ReaperSettings workload item
162spawn :: ReaperSettings workload item