From b35c301de87a9440b320994dcc788d44d80bcc45 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 13 Dec 2010 13:24:46 +0000 Subject: [PATCH] Fix warnings --- System/Event/Manager.hs | 3 +-- System/Event/Thread.hs | 1 - 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/System/Event/Manager.hs b/System/Event/Manager.hs index 74b1a72..1206d66 100644 --- a/System/Event/Manager.hs +++ b/System/Event/Manager.hs @@ -41,8 +41,7 @@ module System.Event.Manager ------------------------------------------------------------------------ -- Imports -import Control.Concurrent.MVar (MVar, modifyMVar, modifyMVar_, newMVar, - readMVar) +import Control.Concurrent.MVar (MVar, modifyMVar, newMVar, readMVar) import Control.Exception (finally) import Control.Monad ((=<<), forM_, liftM, sequence_, when) import Data.IORef (IORef, atomicModifyIORef, mkWeakIORef, newIORef, readIORef, diff --git a/System/Event/Thread.hs b/System/Event/Thread.hs index 72343d9..59bf7e8 100644 --- a/System/Event/Thread.hs +++ b/System/Event/Thread.hs @@ -21,7 +21,6 @@ import GHC.Conc.Sync (TVar, ThreadId, ThreadStatus(..), atomically, forkIO, import GHC.IO (mask_, onException) import GHC.IO.Exception (ioError) import GHC.MVar (MVar, newEmptyMVar, newMVar, putMVar, takeMVar) -import GHC.Real (fromIntegral) import System.Event.Internal (eventIs, evtClose) import System.Event.Manager (Event, EventManager, evtRead, evtWrite, loop, new, registerFd, unregisterFd_, registerTimeout) -- 1.7.10.4