Properly call obShutdown
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 22:16:47 +0000 (00:16 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 22:16:47 +0000 (00:16 +0200)
src/dbclient.hs

index 48e4eca..c1b2cab 100644 (file)
@@ -54,10 +54,12 @@ main = do
        case args of
          [conf] -> do
                obs <- cairoObserver
+               let obs' = obs `mappend` scoringObs conf
                lseedMainLoop True
-                             (obs `mappend` scoringObs conf)
+                             obs'
                              (GardenSource (getDBGarden conf) (getDBUpdate conf))
                              30
+               obShutdown obs'
          _ -> do
                putStrLn "L-Seed DB client application."
                putStrLn "Please pass DB configuration file on the command line."