From f41dc7b572acf85907a6cb5fdc6ecfee715621df Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Tue, 29 Apr 2008 12:28:48 +0200 Subject: style darcs-hash:20080429102848-d6583-54a5167beb89b3e330012b2f92e786e6f456cbe6.gz --- Plugins/Monitors.hs | 2 +- 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) -- cgit v1.2.3