Added TODO

blitzcode · Nov 25, 2016 · e6d2210 · e6d2210
1 parent 0eb45b9
commit e6d2210
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/BackgroundProcessing.hs b/BackgroundProcessing.hs
@@ -124,7 +124,7 @@ scheduleWatcher tvPC = loop =<< (localDay . zonedTimeToLocalTime <$> getZonedTim
                       pcSchedules . at schedName . _Just . sTrigStatus .~ STAlreadyTriggered
           -- Execute all pending actions, sleep for a while and start again
           sequence_ ioActions
-          waitNSec 10
+          waitNSec 10 -- TODO: All our schedules trigger on the full minute, just wait till then?
           loop $ localDay curTime
 
 -- Did we already pass the trigger time of the schedule today?