wai-test 1.1.0.1 → 1.1.1
raw patch · 2 files changed
+10/−1 lines, 2 filesdep +text
Dependencies added: text
Files
- Network/Wai/Test.hs +8/−0
- wai-test.cabal +2/−1
Network/Wai/Test.hs view
@@ -9,6 +9,7 @@ , SRequest (..) , SResponse (..) , defaultRequest+ , setRawPathInfo -- * Assertions , assertStatus , assertContentType@@ -33,6 +34,8 @@ import qualified Network.HTTP.Types as H import Data.CaseInsensitive (CI) import qualified Data.ByteString as S+import qualified Data.Text as T+import qualified Data.Text.Encoding as TE import qualified Data.Conduit as C import qualified Data.Conduit.List as CL import Data.Monoid (mempty)@@ -78,6 +81,11 @@ , requestBody = mempty , vault = mempty }++setRawPathInfo :: Request -> S8.ByteString -> Request+setRawPathInfo r rawPinfo =+ let pInfo = T.split (== '/') $ TE.decodeUtf8 rawPinfo+ in r { rawPathInfo = rawPinfo, pathInfo = pInfo } srequest :: SRequest -> Session SResponse srequest (SRequest req bod) = do
wai-test.cabal view
@@ -1,5 +1,5 @@ name: wai-test-version: 1.1.0.1+version: 1.1.1 license: BSD3 license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>@@ -16,6 +16,7 @@ build-depends: base >= 4 && < 5 , wai >= 1.1 && < 1.2 , bytestring >= 0.9.1.4 && < 0.10+ , text >= 0.7 && < 0.12 , blaze-builder >= 0.2.1.4 && < 0.4 , transformers >= 0.2.2 && < 0.3 , containers >= 0.2 && < 0.5