diff options
| author | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
| commit | e41fd61bdeac8779fa24050cc0d44714f7c90f1d (patch) | |
| tree | f724480c121a1246c942ed913f167fa71a9e2564 /src/Plugins/Monitors/Net.hs | |
| parent | 938a8d8307c1c4794c5fcf269c587c3c5c5e70df (diff) | |
| download | xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.gz xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.bz2 | |
hlint configuration
Diffstat (limited to 'src/Plugins/Monitors/Net.hs')
| -rw-r--r-- | src/Plugins/Monitors/Net.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Plugins/Monitors/Net.hs b/src/Plugins/Monitors/Net.hs index 7df8889..a8c2951 100644 --- a/src/Plugins/Monitors/Net.hs +++ b/src/Plugins/Monitors/Net.hs @@ -1,7 +1,7 @@ ----------------------------------------------------------------------------- -- | -- Module : Plugins.Monitors.Net --- Copyright : (c) 2011, 2012, 2013, 2014 Jose Antonio Ortega Ruiz +-- Copyright : (c) 2011, 2012, 2013, 2014, 2017 Jose Antonio Ortega Ruiz -- (c) 2007-2010 Andrea Rossato -- License : BSD-style (see LICENSE) -- @@ -82,8 +82,8 @@ instance Ord num => Ord (NetDev num) where compare NA _ = LT compare _ NA = GT compare (NI _) (NI _) = EQ - compare (NI _) (ND {}) = LT - compare (ND {}) (NI _) = GT + compare (NI _) ND {} = LT + compare ND {} (NI _) = GT compare (ND _ x1 y1) (ND _ x2 y2) = if downcmp /= EQ then downcmp @@ -189,7 +189,7 @@ runNets refs argv = do dev <- io $ parseActive refs opts <- io $ parseOpts argv printNet opts dev - where parseActive refs' = liftM selectActive (parseNets refs') + where parseActive refs' = fmap selectActive (parseNets refs') selectActive = maximum startNet :: String -> [String] -> Int -> (String -> IO ()) -> IO () |