diff options
| -rw-r--r-- | Plugins/Monitors.hs | 2 | ||||
| -rw-r--r-- | Plugins/Monitors/Weather.hs | 22 |
2 files changed, 12 insertions, 12 deletions
diff --git a/Plugins/Monitors.hs b/Plugins/Monitors.hs index 690e198..07662be 100644 --- a/Plugins/Monitors.hs +++ b/Plugins/Monitors.hs @@ -55,7 +55,7 @@ instance Exec Monitors where alias (Swap _ _) = "swap" alias (Cpu _ _) = "cpu" alias (Battery _ _) = "battery" - alias (BatteryP _ _ _) = "battery" + alias (BatteryP _ _ _)= "battery" alias (CpuFreq _ _) = "cpufreq" alias (CoreTemp _ _) = "coretemp" start (Weather s a r) = runM (a ++ [s]) weatherConfig runWeather r diff --git a/Plugins/Monitors/Weather.hs b/Plugins/Monitors/Weather.hs index e166b74..9a60876 100644 --- a/Plugins/Monitors/Weather.hs +++ b/Plugins/Monitors/Weather.hs @@ -45,18 +45,18 @@ weatherConfig = mkMConfig data WeatherInfo = WI { stationPlace :: String , stationState :: String - , year :: String - , month :: String - , day :: String - , hour :: String - , wind :: String - , visibility :: String + , year :: String + , month :: String + , day :: String + , hour :: String + , wind :: String + , visibility :: String , skyCondition :: String - , tempC :: Int - , tempF :: Int - , dewPoint :: String - , humidity :: Int - , pressure :: Int + , tempC :: Int + , tempF :: Int + , dewPoint :: String + , humidity :: Int + , pressure :: Int } deriving (Show) pTime :: Parser (String, String, String, String) |