diff options
| -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)) } |