- output $ "{\"range\": {\"lo\": " ++ show (olo :: Int)
- ++ ", \"hi\": " ++ show (ohi :: Int)
- ++ "}, \"current\": {\"cold\": " ++ show (floor (ccold :: Double))
- ++ ", \"hot\": " ++ show (floor (chot :: Double))
- ++ "}}, \"cold\": [" ++ showjson cold
+ output $ "{\"range\": {\"lo\": " ++ show (floor (olo :: (Ratio Integer)))
+ ++ ", \"hi\": " ++ show (floor (ohi :: (Ratio Integer)))
+ ++ "}, \"current\": {\"cold\": " ++ show (floor (ccold :: (Ratio Integer)))
+ ++ ", \"hot\": " ++ show (floor (chot :: (Ratio Integer)))
+ ++ "}, \"cold\": [" ++ showjson cold