mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-11 16:12:20 +00:00
10 lines
190 B
Haskell
10 lines
190 B
Haskell
module Detach (detach) where
|
|
|
|
import Control.Monad
|
|
import Control.Concurrent
|
|
|
|
detach :: IO () -> IO Bool
|
|
detach action = do
|
|
void $ forkIO action
|
|
threadDelay (10^(6::Int))
|
|
return False
|