Fix GardenSource in db*.hs
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 27 Jun 2009 13:08:07 +0000 (15:08 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 27 Jun 2009 13:08:07 +0000 (15:08 +0200)
src/dbclient.hs
src/dbscorer.hs

index 6aef9b5..5132aff 100644 (file)
@@ -55,8 +55,9 @@ main = do
          [conf, pngfile, textfile] -> do
                obs <- cairoObserver
                let obs' = obs `mappend` scoringObs conf `mappend` pngDailyObserver pngfile
-               let gs = addMessageSource (readFile textfile) $
-                        GardenSource (getDBGarden conf) (getDBUpdate conf)
+               let gs = GardenSource (getDBGarden conf)
+                                     (getDBUpdate conf)
+                                      (readFile textfile) 
                lseedMainLoop True obs' gs 30
                obShutdown obs'
          _ -> do
index 1345bff..12be48f 100644 (file)
@@ -44,7 +44,7 @@ main = do
          [conf] -> do
                lseedMainLoop False
                              (scoringObs conf)
-                             (GardenSource (getDBGarden conf) (getDBUpdate conf))
+                             (GardenSource (getDBGarden conf) (getDBUpdate conf) (return ""))
                              30
          _ -> do
                putStrLn "L-Seed DB client application."