add monitoring function in main thread

kfish · Nov 14, 2011 · 796f19e · 796f19e
1 parent 2e1a659
commit 796f19e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/main.hs b/src/main.hs
@@ -8,3 +8,9 @@ import GUI
 main = later waitForChildren $ do
     chan <- newChan
     forkChild (guiMain chan)
+    monitor chan
+
+monitor chan = do
+    x <- readChan chan
+    putStrLn $ "Received message: " ++ x
+    monitor chan