diff options
| -rw-r--r-- | app/Sensor.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/app/Sensor.hs b/app/Sensor.hs index d65b556..512870b 100644 --- a/app/Sensor.hs +++ b/app/Sensor.hs @@ -360,8 +360,13 @@ getForecast = handle (\(e :: SomeException) -> print e >> throwIO e) do addUserAgent req = addRequestHeader (fromString "user-agent") (fromString "astatusbar") req weatherForecast :: (S.MonadSensor m) => S.Sensor m () (Maybe String) -weatherForecast = - S.sensor WeatherForecast +weatherForecast = do + value <- S.sensor WeatherForecast + return + ( case value of + Just "partlycloudy_night" -> Just "\xe37e" + _ -> value + ) data CurrentTime = CurrentTime deriving (Show) |