@@ -22,9 +22,6 @@ module Servant.Server.Internal
22 , module Servant.Server.Internal.ServantErr
22 , module Servant.Server.Internal.ServantErr
25−#if !MIN_VERSION_base(4,8,0)
26−import Control.Applicative ((<$>))
28import Control.Monad.Trans.Except (ExceptT)
25import Control.Monad.Trans.Except (ExceptT)
29import qualified Data.ByteString as B
26import qualified Data.ByteString as B
30import qualified Data.ByteString.Char8 as BC8
27import qualified Data.ByteString.Char8 as BC8
@@ -45,6 +42,7 @@ import Network.Wai (Application, Request, Response,
45 rawQueryString, remoteHost,
42 rawQueryString, remoteHost,
46 requestHeaders, requestMethod,
43 requestHeaders, requestMethod,
47 responseLBS, vault)
44 responseLBS, vault)
48import Web.HttpApiData (FromHttpApiData)
46import Web.HttpApiData (FromHttpApiData)
49import Web.HttpApiData.Internal (parseHeaderMaybe,
47import Web.HttpApiData.Internal (parseHeaderMaybe,
50 parseQueryParamMaybe,
48 parseQueryParamMaybe,