diff options
author | jao <jao@gnu.org> | 2017-04-29 03:23:00 +0200 |
---|---|---|
committer | jao <jao@gnu.org> | 2017-04-29 03:23:00 +0200 |
commit | 2939cee44cf2ab18e2627754d19bcd8b6c9e96fb (patch) | |
tree | 64cf79a53ef8b76ecf2d6fd7a0f3a13ee0d72922 | |
parent | d463058631ff61a776841e7ed7541a064414de5a (diff) | |
download | xmobar-2939cee44cf2ab18e2627754d19bcd8b6c9e96fb.tar.gz xmobar-2939cee44cf2ab18e2627754d19bcd8b6c9e96fb.tar.bz2 |
Compilation warnings (redundant imports) in GHC 8.0
-rw-r--r-- | src/Plugins/Monitors/CoreCommon.hs | 2 | ||||
-rw-r--r-- | src/Plugins/Monitors/Net.hs | 2 | ||||
-rw-r--r-- | src/Runnable.hs | 2 |
3 files changed, 2 insertions, 4 deletions
diff --git a/src/Plugins/Monitors/CoreCommon.hs b/src/Plugins/Monitors/CoreCommon.hs index 2c10c70..4ded88a 100644 --- a/src/Plugins/Monitors/CoreCommon.hs +++ b/src/Plugins/Monitors/CoreCommon.hs @@ -16,8 +16,6 @@ module Plugins.Monitors.CoreCommon where -import Control.Applicative -import Control.Monad import Data.Char hiding (Space) import Data.Function import Data.List diff --git a/src/Plugins/Monitors/Net.hs b/src/Plugins/Monitors/Net.hs index a8c2951..e290539 100644 --- a/src/Plugins/Monitors/Net.hs +++ b/src/Plugins/Monitors/Net.hs @@ -23,7 +23,7 @@ import Plugins.Monitors.Common import Data.Word (Word64) import Data.IORef (IORef, newIORef, readIORef, writeIORef) import Data.Time.Clock (UTCTime, getCurrentTime, diffUTCTime) -import Control.Monad (forM, filterM, liftM) +import Control.Monad (forM, filterM) import System.Directory (getDirectoryContents, doesFileExist) import System.FilePath ((</>)) import System.Console.GetOpt diff --git a/src/Runnable.hs b/src/Runnable.hs index 84d9b77..04272f5 100644 --- a/src/Runnable.hs +++ b/src/Runnable.hs @@ -46,7 +46,7 @@ class ReadAsAnyOf ts ex where instance ReadAsAnyOf () ex where readAsAnyOf ~() = mzero -instance (Show t, Read t, Exec t, ReadAsAnyOf ts Runnable) => ReadAsAnyOf (t,ts) Runnable where +instance (Read t, Exec t, ReadAsAnyOf ts Runnable) => ReadAsAnyOf (t,ts) Runnable where readAsAnyOf ~(t,ts) = r t `mplus` readAsAnyOf ts where r ty = do { m <- readPrec; return (Run (m `asTypeOf` ty)) } |