Properly shutdown main.hs
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 27 Jun 2009 10:47:03 +0000 (12:47 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 27 Jun 2009 10:47:03 +0000 (12:47 +0200)
src/main.hs

index f6c480e..27a4b88 100644 (file)
@@ -36,3 +36,4 @@ readArgs doit = do
 main = readArgs $ \garden -> do
        obs <- cairoObserver
        lseedMainLoop True obs (constGardenSource garden) 30
+       obShutdown obs