diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-04-29 12:28:48 +0200 | 
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-04-29 12:28:48 +0200 | 
| commit | f41dc7b572acf85907a6cb5fdc6ecfee715621df (patch) | |
| tree | fd666b3832d74c2ff275b0483dc4dba95f47998f /Plugins | |
| parent | 14ce2a41a166fe0282f0fc19fad81239590b441a (diff) | |
| download | xmobar-f41dc7b572acf85907a6cb5fdc6ecfee715621df.tar.gz xmobar-f41dc7b572acf85907a6cb5fdc6ecfee715621df.tar.bz2 | |
style
darcs-hash:20080429102848-d6583-54a5167beb89b3e330012b2f92e786e6f456cbe6.gz
Diffstat (limited to 'Plugins')
| -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) | 
