Do not run forever (rather use bash for that)
[L-seed.git] / src / dbclient.hs
index 18ee852..48e4eca 100644 (file)
@@ -54,7 +54,7 @@ main = do
        case args of
          [conf] -> do
                obs <- cairoObserver
-               forever $ lseedMainLoop True
+               lseedMainLoop True
                              (obs `mappend` scoringObs conf)
                              (GardenSource (getDBGarden conf) (getDBUpdate conf))
                              30