Rework live reloading. (#191)

This commit is contained in:
David Himmelstrup 2021-01-04 13:17:34 +08:00 committed by GitHub
commit 16fd952c9a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
16 changed files with 379 additions and 386 deletions

10
windows/Detach.hs Normal file
View file

@ -0,0 +1,10 @@
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