From fb6cfdefd7e81a335f318608a57e7d76bdb2a8cb Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Mon, 10 Feb 2020 23:14:25 +0000
Subject: [PATCH] Add ConstModule loading delay

---
 src/Forest/TreeModule/ConstModule.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Forest/TreeModule/ConstModule.hs b/src/Forest/TreeModule/ConstModule.hs
index c9d5c5f..274f173 100644
--- a/src/Forest/TreeModule/ConstModule.hs
+++ b/src/Forest/TreeModule/ConstModule.hs
@@ -4,6 +4,9 @@ module Forest.TreeModule.ConstModule
   ( constModule
   ) where
 
+import           Control.Concurrent
+import           Control.Monad
+
 import           Forest.Node
 import           Forest.TreeModule
 
@@ -17,5 +20,7 @@ instance TreeModule ConstModule where
 
 constModule :: ModuleConstructor ConstModule
 constModule sendNode continue = do
-  sendNode (emptyNode "Loaded ConstModule" False False False False)
+  void $ forkIO $ do
+    threadDelay $ 1000 * 1000 -- One second
+    sendNode (emptyNode "Loaded ConstModule" False False False False)
   continue ConstModule