Skip to content

Commit 04541b6

Browse files
committed
Remove redundant Windows-only import
1 parent 3872fc5 commit 04541b6

File tree

3 files changed

+1
-6
lines changed

3 files changed

+1
-6
lines changed

Win32-network/src/System/Win32/Async/IOManager.hsc

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,6 @@ import Control.Exception ( Exception (..)
2929
, bracket
3030
, catch
3131
, throwIO
32-
, throwTo
3332
)
3433
import Control.Monad (when)
3534
import Data.Word (Word32)

Win32-network/src/System/Win32/Async/Overlapped.hsc

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -19,9 +19,7 @@ module System.Win32.Async.Overlapped
1919
#if MIN_VERSION_Win32 (2, 7, 0)
2020
import System.Win32.File ( LPOVERLAPPED, OVERLAPPED (..) )
2121
#endif
22-
import Foreign ( Ptr
23-
, nullPtr
24-
)
22+
import Foreign (Ptr)
2523
import Foreign.Storable (Storable (..))
2624
import System.Win32.Types
2725

io-sim-classes/src/Control/Monad/Class/MonadTimer.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -25,8 +25,6 @@ import Data.Time.Clock (DiffTime, diffTimeToPicoseconds)
2525
#if defined(__GLASGOW_HASKELL__) && !defined(mingw32_HOST_OS) && !defined(__GHCJS__)
2626
import qualified GHC.Event as GHC (TimeoutKey, getSystemTimerManager,
2727
registerTimeout, unregisterTimeout, updateTimeout)
28-
#else
29-
import Control.Monad (when)
3028
#endif
3129

3230
import Control.Monad.Class.MonadFork

0 commit comments

Comments
 (0)