X-Git-Url: http://www.average.org/gitweb/?p=pulsecounter.git;a=blobdiff_plain;f=web%2Fquery.cgi;h=690eb9aaac6953abd8403706c9c2a842f163b277;hp=872023716d1cd12ecd43af9e6bcca7e76b2eed8f;hb=256a00ed504af5e5fba67508173445363edf5007;hpb=57ab1d5776f832c3df5c8b2514f34e282b39fbd9 diff --git a/web/query.cgi b/web/query.cgi index 8720237..690eb9a 100755 --- a/web/query.cgi +++ b/web/query.cgi @@ -71,7 +71,7 @@ cgiMain = do ++ ", \"hi\": " ++ show (ohi :: Int) ++ "}, \"current\": {\"cold\": " ++ show (floor (ccold :: Double)) ++ ", \"hot\": " ++ show (floor (chot :: Double)) - ++ "}}, \"cold\": [" ++ showjson cold + ++ "}, \"cold\": [" ++ showjson cold ++ "], \"hot\": [" ++ showjson hot ++ "]}\n" showjson :: [(Int, Double)] -> String