@@ -113,7 +113,7 @@ data Reaper workload item = Reaper {
113113
114114-- | State of reaper.
115115data State workload = NoReaper -- ^ No reaper thread
116− | Workload workload -- ^ The current jobs
116+ | Workload !workload -- ^ The current jobs
117117
118118-- | Create a reaper addition function. This function can be used to add
119119-- new items to the workload. Spawning of reaper threads will be handled
@@ -154,7 +154,7 @@ add settings@ReaperSettings{..} stateRef tidRef item =
154154 next <- atomicModifyIORef' stateRef cons
155155 next
156156 where
157− cons NoReaper = let !wl = reaperCons item reaperEmpty
157+ cons NoReaper = let wl = reaperCons item reaperEmpty
158158 in (Workload wl, spawn settings stateRef tidRef)
159159 cons (Workload wl) = let wl' = reaperCons item wl
160160 in (Workload wl', return ())