git.iko.soy/servant
on master help sign in
update base-compat imports
a22a981Denis Redozubov
servant-server/src/Servant/Server/Internal.hs+1
compare with master
unifiedsplit
@@ -42,6 +42,7 @@ import Network.Wai (Application, Request, Response,
42 rawQueryString, remoteHost,
42 rawQueryString, remoteHost,
43 requestHeaders, requestMethod,
43 requestHeaders, requestMethod,
44 responseLBS, vault)
44 responseLBS, vault)
45+import Prelude ()
45import Prelude.Compat
46import Prelude.Compat
46import Web.HttpApiData (FromHttpApiData)
47import Web.HttpApiData (FromHttpApiData)
47import Web.HttpApiData.Internal (parseHeaderMaybe,
48import Web.HttpApiData.Internal (parseHeaderMaybe,
servant-server/src/Servant/Server/Internal/Enter.hs+1
@@ -22,6 +22,7 @@ import qualified Control.Monad.State.Strict as SState
22import qualified Control.Monad.Writer.Lazy as LWriter
22import qualified Control.Monad.Writer.Lazy as LWriter
23import qualified Control.Monad.Writer.Strict as SWriter
23import qualified Control.Monad.Writer.Strict as SWriter
24import Data.Typeable
24import Data.Typeable
25+import Prelude ()
25import Prelude.Compat
26import Prelude.Compat
26
27
27import Servant.API
28import Servant.API
servant-server/src/Servant/Server/Internal/RoutingApplication.hs+1
@@ -11,6 +11,7 @@ module Servant.Server.Internal.RoutingApplication where
11import Control.Monad.Trans.Except (ExceptT, runExceptT)
11import Control.Monad.Trans.Except (ExceptT, runExceptT)
12import Network.Wai (Application, Request,
12import Network.Wai (Application, Request,
13 Response, ResponseReceived)
13 Response, ResponseReceived)
14+import Prelude ()
14import Prelude.Compat
15import Prelude.Compat
15import Servant.Server.Internal.ServantErr
16import Servant.Server.Internal.ServantErr
16
17
servant/src/Servant/API/Alternative.hs+2−1
@@ -10,7 +10,8 @@
10module Servant.API.Alternative ((:<|>)(..)) where
10module Servant.API.Alternative ((:<|>)(..)) where
11
11
12import Data.Typeable (Typeable)
12import Data.Typeable (Typeable)
13−import Prelude.Compat (Monoid(..), Traversable, Foldable)
13+import Prelude ()
14+import Prelude.Compat
14
15
15-- | Union of two APIs, first takes precedence in case of overlap.
16-- | Union of two APIs, first takes precedence in case of overlap.
16--
17--
servant/src/Servant/API/ContentTypes.hs+3−2
@@ -73,7 +73,7 @@ module Servant.API.ContentTypes
73 ) where
73 ) where
74
74
75import Control.Arrow (left)
75import Control.Arrow (left)
76−import Control.Monad.Compat hiding (mapM)
76+import Control.Monad.Compat
77import Data.Aeson (FromJSON(..), ToJSON(..), encode)
77import Data.Aeson (FromJSON(..), ToJSON(..), encode)
78import Data.Aeson.Parser (value)
78import Data.Aeson.Parser (value)
79import Data.Aeson.Types (parseEither)
79import Data.Aeson.Types (parseEither)
@@ -96,7 +96,8 @@ import GHC.Generics (Generic)
96import qualified Network.HTTP.Media as M
96import qualified Network.HTTP.Media as M
97import Network.URI (escapeURIString,
97import Network.URI (escapeURIString,
98 isUnreserved, unEscapeString)
98 isUnreserved, unEscapeString)
99−import Prelude.Compat ((<*), (*>))
99+import Prelude ()
100+import Prelude.Compat
100
101
101-- * Provided content types
102-- * Provided content types
102data JSON deriving Typeable
103data JSON deriving Typeable
servant/src/Servant/API/ResponseHeaders.hs+1
@@ -39,6 +39,7 @@ import GHC.TypeLits (KnownSymbol, symbolVal)
39import qualified Network.HTTP.Types.Header as HTTP
39import qualified Network.HTTP.Types.Header as HTTP
40
40
41import Servant.API.Header (Header (..))
41import Servant.API.Header (Header (..))
42+import Prelude ()
42import Prelude.Compat
43import Prelude.Compat
43
44
44-- | Response Header objects. You should never need to construct one directly.
45-- | Response Header objects. You should never need to construct one directly.