eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

update base-compat imports

Browse source
This commit is contained in:
Denis Redozubov 2016-03-01 21:25:04 +03:00
parent c755f47806
commit a22a981190
6 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant-server/src/Servant/Server/Internal.hs
View file

@ -42,6 +42,7 @@ import Network.Wai (Application, Request, Response,
rawQueryString, remoteHost, rawQueryString, remoteHost,
requestHeaders, requestMethod, requestHeaders, requestMethod,
responseLBS, vault) responseLBS, vault)
import Prelude ()
import Prelude.Compat import Prelude.Compat
import Web.HttpApiData (FromHttpApiData) import Web.HttpApiData (FromHttpApiData)
import Web.HttpApiData.Internal (parseHeaderMaybe, import Web.HttpApiData.Internal (parseHeaderMaybe,

1
servant-server/src/Servant/Server/Internal/Enter.hs
View file

@ -22,6 +22,7 @@ import qualified Control.Monad.State.Strict as SState
import qualified Control.Monad.Writer.Lazy as LWriter import qualified Control.Monad.Writer.Lazy as LWriter
import qualified Control.Monad.Writer.Strict as SWriter import qualified Control.Monad.Writer.Strict as SWriter
import Data.Typeable import Data.Typeable
import Prelude ()
import Prelude.Compat import Prelude.Compat
import Servant.API import Servant.API

1
servant-server/src/Servant/Server/Internal/RoutingApplication.hs
View file

@ -11,6 +11,7 @@ module Servant.Server.Internal.RoutingApplication where
import Control.Monad.Trans.Except (ExceptT, runExceptT) import Control.Monad.Trans.Except (ExceptT, runExceptT)
import Network.Wai (Application, Request, import Network.Wai (Application, Request,
Response, ResponseReceived) Response, ResponseReceived)
import Prelude ()
import Prelude.Compat import Prelude.Compat
import Servant.Server.Internal.ServantErr import Servant.Server.Internal.ServantErr

3
servant/src/Servant/API/Alternative.hs
View file

@ -10,7 +10,8 @@
module Servant.API.Alternative ((:<|>)(..)) where module Servant.API.Alternative ((:<|>)(..)) where
import Data.Typeable (Typeable) import Data.Typeable (Typeable)
import Prelude.Compat (Monoid(..), Traversable, Foldable) import Prelude ()
import Prelude.Compat
-- | Union of two APIs, first takes precedence in case of overlap. -- | Union of two APIs, first takes precedence in case of overlap.
-- --

5
servant/src/Servant/API/ContentTypes.hs
View file

@ -73,7 +73,7 @@ module Servant.API.ContentTypes
) where ) where
import Control.Arrow (left) import Control.Arrow (left)
import Control.Monad.Compat hiding (mapM) import Control.Monad.Compat
import Data.Aeson (FromJSON(..), ToJSON(..), encode) import Data.Aeson (FromJSON(..), ToJSON(..), encode)
import Data.Aeson.Parser (value) import Data.Aeson.Parser (value)
import Data.Aeson.Types (parseEither) import Data.Aeson.Types (parseEither)
@ -96,7 +96,8 @@ import GHC.Generics (Generic)
import qualified Network.HTTP.Media as M import qualified Network.HTTP.Media as M
import Network.URI (escapeURIString, import Network.URI (escapeURIString,
isUnreserved, unEscapeString) isUnreserved, unEscapeString)
import Prelude.Compat ((<*), (*>)) import Prelude ()
import Prelude.Compat
-- * Provided content types -- * Provided content types
data JSON deriving Typeable data JSON deriving Typeable

1
servant/src/Servant/API/ResponseHeaders.hs
View file

@ -39,6 +39,7 @@ import GHC.TypeLits (KnownSymbol, symbolVal)
import qualified Network.HTTP.Types.Header as HTTP import qualified Network.HTTP.Types.Header as HTTP
import Servant.API.Header (Header (..)) import Servant.API.Header (Header (..))
import Prelude ()
import Prelude.Compat import Prelude.Compat
-- | Response Header objects. You should never need to construct one directly. -- | Response Header objects. You should never need to construct one directly.