diff --git a/count-von-count/src/CountVonCount/Boxxy.hs b/count-von-count/src/CountVonCount/Boxxy.hs index e5899f0..ba9d2f4 100644 --- a/count-von-count/src/CountVonCount/Boxxy.hs +++ b/count-von-count/src/CountVonCount/Boxxy.hs @@ -95,12 +95,13 @@ makeRequest config path body = do path' = boxxyPath config `T.append` path queryString = "key=" `T.append` boxxyKey config -putConfig :: BoxxyConfig -> Double -> [Station] -> [Team] -> IO () -putConfig config circuitLength stations teams = +putConfig :: BoxxyConfig -> Double -> [Station] -> [Team] -> UTCTime -> IO () +putConfig config circuitLength stations teams time = makeRequest config "/config" $ A.object [ "circuitLength" .= circuitLength , "stations" .= stations , "teams" .= teams + , "time" .= time ] putLaps :: BoxxyConfig -- ^ Boxxy instance to notify diff --git a/count-von-count/src/CountVonCount/Main.hs b/count-von-count/src/CountVonCount/Main.hs index 39dd559..26af8c8 100644 --- a/count-von-count/src/CountVonCount/Main.hs +++ b/count-von-count/src/CountVonCount/Main.hs @@ -6,6 +6,7 @@ import Control.Applicative ((<$>)) import Control.Concurrent (forkIO) import Control.Concurrent.Chan (newChan, writeChan) import Data.Foldable (forM_) +import Data.Time (getCurrentTime) import qualified Data.Aeson as A import qualified Network.WebSockets as WS @@ -39,7 +40,8 @@ main = do -- Initialize boxxy boxxies <- newBoxxies (configBoxxies config) $ \b -> do ts <- map snd <$> runPersistence getAllTeams - putConfig b (configCircuitLength config) (configStations config) ts + t <- getCurrentTime + putConfig b (configCircuitLength config) (configStations config) ts t -- Connecting the sensor to the counter sensorChan <- newChan