warped 0.0.5 → 0.0.6
raw patch · 3 files changed
+11/−10 lines, 3 filesdep ~blaze-builderdep ~conduitdep ~http-typesPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: blaze-builder, conduit, http-types, preamble, wai, wai-conduit, warp
API changes (from Hackage documentation)
+ Network.Warped: WaiCtx :: UUID -> Request -> Respond -> WaiCtx
+ Network.Warped: [_wcRequest] :: WaiCtx -> Request
+ Network.Warped: [_wcRespond] :: WaiCtx -> Respond
+ Network.Warped: [_wcSessionUid] :: WaiCtx -> UUID
+ Network.Warped: answer :: MonadWai c m => Response -> m ResponseReceived
+ Network.Warped: answerJson :: (MonadWai c m, ToJSON a) => Status -> ResponseHeaders -> a -> m ResponseReceived
+ Network.Warped: answerSource :: MonadWai c m => Status -> ResponseHeaders -> ConduitT () (Flush Builder) IO () -> m ResponseReceived
+ Network.Warped: answerStatus :: MonadWai c m => Status -> ResponseHeaders -> m ResponseReceived
+ Network.Warped: class HasWaiCtx c_aehA
+ Network.Warped: data WaiCtx
+ Network.Warped: flushBuilder :: Monad m => ConduitT ByteString (Flush Builder) m ()
+ Network.Warped: raceResponse :: MonadBaseControl IO m => m ResponseReceived -> m ResponseReceived -> m ResponseReceived
+ Network.Warped: requestHeader :: HeaderName -> Request -> Maybe ByteString
+ Network.Warped: requestQuery :: ByteString -> Request -> Maybe ByteString
+ Network.Warped: route :: (MonadWai c m, Eq a) => (Request -> a) -> m ResponseReceived -> [(a, m ResponseReceived)] -> m ResponseReceived
+ Network.Warped: routeMethod :: MonadWai c m => m ResponseReceived -> [(Method, m ResponseReceived)] -> m ResponseReceived
+ Network.Warped: routePath :: MonadWai c m => m ResponseReceived -> [(ByteString, m ResponseReceived)] -> m ResponseReceived
+ Network.Warped: type MonadApplication m = Request -> Respond -> m ResponseReceived
+ Network.Warped: type MonadWai c m = (MonadIO m, MonadReader c m, HasWaiCtx c)
+ Network.Warped: type Respond = Response -> IO ResponseReceived
+ Network.Warped: waiCtx :: HasWaiCtx c_aehA => Lens' c_aehA WaiCtx
+ Network.Warped: warp :: (MonadBaseControl IO m, StM m ResponseReceived ~ ResponseReceived) => Settings -> MonadApplication m -> m ()
+ Network.Warped: warpCors :: (MonadBaseControl IO m, StM m ResponseReceived ~ ResponseReceived) => Settings -> CorsResourcePolicy -> MonadApplication m -> m ()
+ Network.Warped: wcRequest :: HasWaiCtx c_aehA => Lens' c_aehA Request
+ Network.Warped: wcRespond :: HasWaiCtx c_aehA => Lens' c_aehA Respond
+ Network.Warped: wcSessionUid :: HasWaiCtx c_aehA => Lens' c_aehA UUID
+ Network.Warped: withHeader :: MonadWai c m => HeaderName -> (HeaderName -> m ResponseReceived) -> (ByteString -> m ResponseReceived) -> m ResponseReceived
Files
src/Network/Warped/Application.hs view
@@ -43,7 +43,7 @@ -- | A Conduit for converting a ByteString to a Flush Builder. ---flushBuilder :: Monad m => Conduit ByteString m (Flush Builder)+flushBuilder :: Monad m => ConduitT ByteString (Flush Builder) m () flushBuilder = awaitForever $ \chunk -> do yield $ Chunk $ fromByteString chunk yield Flush@@ -114,7 +114,7 @@ -- | Stream response. ---answerSource :: MonadWai c m => Status -> ResponseHeaders -> Source IO (Flush Builder) -> m ResponseReceived+answerSource :: MonadWai c m => Status -> ResponseHeaders -> ConduitT () (Flush Builder) IO () -> m ResponseReceived answerSource status headers response = do sessionUid <- view wcSessionUid let headers' = hSessionUid =. toASCIIBytes sessionUid : headers
src/Network/Warped/Prelude.hs view
@@ -13,3 +13,4 @@ -- lookupDefault :: Eq a => b -> a -> [(a, b)] -> b lookupDefault b a m = fromMaybe b $ lookup a m+
warped.cabal view
@@ -1,6 +1,6 @@ cabal-version: >=1.22 name: warped-version: 0.0.5+version: 0.0.6 license: MIT license-file: LICENSE copyright: Copyright (C) 2018 Swift Navigation, Inc.@@ -34,14 +34,14 @@ build-depends: aeson >=1.2.4.0, base >=4.9 && <5,- blaze-builder >=0.4.0.2,- conduit >=1.2.13.1,- http-types >=0.9.1,+ blaze-builder >=0.4.1.0,+ conduit >=1.3.0.3,+ http-types >=0.12.1, lifted-async >=0.9.3.3, monad-control >=1.0.2.3,- preamble >=0.0.61,+ preamble >=0.0.62, uuid >=1.3.13,- wai >=3.2.1.1,- wai-conduit >=3.0.0.3,+ wai >=3.2.1.2,+ wai-conduit >=3.0.0.4, wai-cors >=0.2.6,- warp >=3.2.18+ warp >=3.2.23