@@ -98,7 +98,7 @@ data State workload = NoReaper -- ^ No reaper thread
9898mkReaper :: ReaperSettings workload item
9999 -> IO (item -> IO (), IORef (State workload))
100100mkReaper settings = do
101− stateRef <- newIORef Nothing
101+ stateRef <- newIORef NoReaper
102102 return (update settings stateRef, stateRef)
103103
104104update :: ReaperSettings workload item -> IORef (State workload) -> item