Skip to content

Commit 25f2591

Browse files
committed
For mtl-2.3-rc3: import MonadIO from transformers:Control.Monad.IO.Class
1 parent 3e9af54 commit 25f2591

File tree

2 files changed

+15
-8
lines changed

2 files changed

+15
-8
lines changed

HTTP.cabal

Lines changed: 9 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -114,15 +114,17 @@ Library
114114
-- note the test harness constraints should be kept in sync with these
115115
-- where dependencies are shared
116116
build-depends:
117-
base >= 4.6.0.0 && < 4.17
118-
, array >= 0.3.0.2 && < 0.6
119-
, bytestring >= 0.9.1.5 && < 0.12
120-
, parsec >= 2.0 && < 3.2
121-
, time >= 1.1.2.3 && < 1.13
117+
base >= 4.6.0.0 && < 4.17
118+
, array >= 0.3.0.2 && < 0.6
119+
, bytestring >= 0.9.1.5 && < 0.12
120+
, parsec >= 2.0 && < 3.2
121+
, time >= 1.1.2.3 && < 1.13
122+
, transformers >= 0.2.0.0 && < 0.7
123+
-- transformers-0.2.0.0 is the first to have Control.Monad.IO.Class
122124
-- The following dependencies are refined by flags, but they should
123125
-- still be mentioned here on the top-level.
124-
, mtl >= 1.1.1.0 && < 2.3
125-
, network >= 2.4 && < 3.2
126+
, mtl >= 1.1.1.0 && < 2.3
127+
, network >= 2.4 && < 3.2
126128

127129
default-language: Haskell98
128130
default-extensions: FlexibleInstances

Network/Browser.hs

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -140,13 +140,18 @@ import Control.Monad.Fail
140140
import Data.Char (toLower)
141141
import Data.List (isPrefixOf)
142142
import Data.Maybe (fromMaybe, listToMaybe, catMaybes )
143+
#if !MIN_VERSION_base(4,8,0)
143144
import Control.Applicative (Applicative (..), (<$>))
145+
#endif
144146
#ifdef MTL1
145147
import Control.Monad (filterM, forM_, when, ap)
146148
#else
147149
import Control.Monad (filterM, forM_, when)
148150
#endif
149-
import Control.Monad.State (StateT (..), MonadIO (..), modify, gets, withStateT, evalStateT, MonadState (..))
151+
import Control.Monad.IO.Class
152+
( MonadIO (..) )
153+
import Control.Monad.State
154+
( MonadState(..), gets, modify, StateT (..), evalStateT, withStateT )
150155

151156
import qualified System.IO
152157
( hSetBuffering, hPutStr, stdout, stdin, hGetChar

0 commit comments

Comments
 (0)