-- | Terminate a task if it is still running
cleanup :: TaskStatus a -> IO ()
cleanup (Running threadId) = killThread threadId
cleanup :: TaskStatus a -> IO ()
cleanup (Running threadId) = killThread threadId
cleanup (Running threadId) = killThread threadId