Added missing bang, which seems to resolve the memory leak in #728
commitbe32159f0d5655535e9e2b441e8af0ae47819ad9
authorericcro <ericcro@ucbacba2210a05e.ant.amazon.com>
dateTue 19 Feb 2019, 11:00 (8 years ago)
parent4ec6eda
auto-update/Control/Reaper.hs+1−1
@@ -156,7 +156,7 @@ add settings@ReaperSettings{..} stateRef tidRef item =
156156 where
157157 cons NoReaper = let !wl = reaperCons item reaperEmpty
158158 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
160160 in (Workload wl', return ())
161161
162162spawn :: ReaperSettings workload item