git.iko.soy/servant
on master help sign in
Fix compilation warnings
commit069d08787421abfb00f8cd6db80ceb3edb82b8ac authorMatthias Heinzel <mheinzel@posteo.de> dateTue 3 Dec 2019, 21:37 (7 years ago) parent544487d
3 files changed+8−7
compare with master
unifiedsplit
changelog.d/z-ci-tweaks+2 servant-server/src/Servant/Server/Internal.hs+3−3 servant-server/src/Servant/Server/Internal/DelayedIO.hs+3−4
changelog.d/z-ci-tweaks+2
@@ -7,7 +7,9 @@ prs:
77 #1229
88 #1233
99 #1242
10+ #1247
1011 #1250
12+ #1258
1113
1214description: {
1315
servant-server/src/Servant/Server/Internal.hs+3−3
@@ -80,7 +80,7 @@ import Servant.API
8080import Servant.API.ContentTypes
8181 (AcceptHeader (..), AllCTRender (..), AllCTUnrender (..),
8282 AllMime, MimeRender (..), MimeUnrender (..), canHandleAcceptH,
83− NoContent (NoContent))
83+ NoContent)
8484import Servant.API.Modifiers
8585 (FoldLenient, FoldRequired, RequestArgument,
8686 unfoldRequestArgument)
@@ -89,7 +89,7 @@ import Servant.API.ResponseHeaders
8989import qualified Servant.Types.SourceT as S
9090import Web.HttpApiData
9191 (FromHttpApiData, parseHeader, parseQueryParam,
92− parseUrlPieceMaybe, parseUrlPieces, parseUrlPiece)
92+ parseUrlPieces, parseUrlPiece)
9393
9494import Servant.Server.Internal.BasicAuth
9595import Servant.Server.Internal.Context
@@ -272,7 +272,7 @@ noContentRouter method status action = leafRouter route'
272272 where
273273 route' env request respond =
274274 runAction (action `addMethodCheck` methodCheck method request)
275− env request respond $ \ output ->
275+ env request respond $ \ _output ->
276276 Route $ responseLBS status [] ""
277277
278278instance {-# OVERLAPPABLE #-}
servant-server/src/Servant/Server/Internal/DelayedIO.hs+3−4
@@ -12,13 +12,12 @@ import Control.Monad.Reader
1212import Control.Monad.Trans
1313 (MonadIO (..), MonadTrans (..))
1414import Control.Monad.Trans.Control
15− (ComposeSt, MonadBaseControl (..), MonadTransControl (..),
16− defaultLiftBaseWith, defaultRestoreM)
15+ (MonadBaseControl (..))
1716import Control.Monad.Trans.Resource
1817 (MonadResource (..), ResourceT, runInternalState,
19− runResourceT, transResourceT, withInternalState)
18+ transResourceT, withInternalState)
2019import Network.Wai
21− (Application, Request, Response, ResponseReceived)
20+ (Request)
2221
2322import Servant.Server.Internal.RouteResult
2423import Servant.Server.Internal.ServerError