Garmelon/forest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add ConstModule loading delay

Browse source
This commit is contained in:
Joscha 2020-02-10 23:14:25 +00:00
parent 5e7c2952a1
commit fb6cfdefd7
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Forest/TreeModule/ConstModule.hs
View file

@ -4,6 +4,9 @@ module Forest.TreeModule.ConstModule
( constModule ( constModule
) where ) where
import Control.Concurrent
import Control.Monad
import Forest.Node import Forest.Node
import Forest.TreeModule import Forest.TreeModule
@ -17,5 +20,7 @@ instance TreeModule ConstModule where
constModule :: ModuleConstructor ConstModule constModule :: ModuleConstructor ConstModule
constModule sendNode continue = do constModule sendNode continue = do
void $ forkIO $ do
threadDelay $ 1000 * 1000 -- One second
sendNode (emptyNode "Loaded ConstModule" False False False False) sendNode (emptyNode "Loaded ConstModule" False False False False)
continue ConstModule continue ConstModule