Zusätzliche Nachricht unten
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 19:35:41 +0000 (21:35 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 19:35:41 +0000 (21:35 +0200)
src/Lseed/Mainloop.hs

index ae57153..46f0b14 100644 (file)
@@ -53,7 +53,7 @@ lseedMainLoop rt obs gardenSource maxDays = do
                                let tickDiff = timeSpanFraction tickLength tickStart later
                                    dayDiff = (fromIntegral tickOfDay + tickDiff) /
                                              fromIntegral ticksPerDay
-                                   timeInfo = formatTimeInfo day dayDiff
+                                   timeInfo = formatTimeInfo day dayDiff ++ " Connect now! http://lseed.gpn.entropia.de/"
                                    visualizeAngle = lightAngle dayDiff
                                    gardenNow = annotateGarden visualizeAngle $ 
                                                growingGarden tickDiff