webcrank 0.1 → 0.2
raw patch · 3 files changed
+22/−11 lines, 3 filesdep −QuickCheckdep −network-uridep ~lens
Dependencies removed: QuickCheck, network-uri
Dependency ranges changed: lens
Files
- src/Webcrank.hs +9/−0
- src/Webcrank/Internal/Halt.hs +6/−1
- webcrank.cabal +7/−10
src/Webcrank.hs view
@@ -18,6 +18,8 @@ , HaltT , halt , werror+ , werrorWith+ , getDispatchPath -- * Charsets , Charset , CharsetsProvided(..)@@ -177,3 +179,10 @@ writeStr = assign reqDataRespBody . Just . strBody {-# INLINE writeStr #-} +-- | The “local” path of the resource URI; the part+-- after any prefix used in dispatch configuration.+-- Of the three path accessors, this is the one you usually want.+-- This is also the one that will change after postAction is called+-- in your resource.+getDispatchPath :: (MonadState s m, HasReqData s) => m [Text]+getDispatchPath = use reqDataDispPath
src/Webcrank/Internal/Halt.hs view
@@ -24,6 +24,11 @@ -- @500 Internal Server Error@ response. The response body will contain the -- reason. werror :: Monad m => LB.ByteString -> HaltT m a-werror = HaltT . left . Error internalServerError500+werror = werrorWith internalServerError500 {-# INLINE werror #-} +-- | Immediately end processing of this request, returning a response+-- with the given @Status@. The response body will contain the reason.+werrorWith :: Monad m => Status -> LB.ByteString -> HaltT m a+werrorWith s = HaltT . left . Error s+{-# INLINE werrorWith #-}
webcrank.cabal view
@@ -1,5 +1,5 @@ name: webcrank-version: 0.1+version: 0.2 license: BSD3 license-file: LICENSE author: Mark Hibberd <mark@hibberd.id.au>@@ -7,8 +7,8 @@ copyright: (c) 2012 Mark Hibberd synopsis: Webmachine inspired toolkit for building http applications and services. category: Web-homepage: https://github.com/webcrank/webcrank-bug-reports: https://github.com/webcrank/webcrank/issues+homepage: https://github.com/webcrank/webcrank.hs+bug-reports: https://github.com/webcrank/webcrank.hs/issues cabal-version: >= 1.8 build-type: Simple description:@@ -23,7 +23,7 @@ library build-depends: attoparsec >=0.10 && <0.13- , base >= 4.6 && < 5+ , base >=4.6 && < 5 , blaze-builder >=0.2.1.4 && <0.4 , bytestring >=0.9.1.10 && <0.11 , case-insensitive >=0.3 && <1.3@@ -32,8 +32,7 @@ , http-date >=0.0.1 && <0.1 , http-media >=0.4.0 && <0.7 , http-types >=0.8.0 && <0.9- , network-uri >=2.5.0 && <2.7- , lens >=4.5 && <4.9+ , lens >=4.5 && <5 , mtl >=2.0.1 && <2.3 , semigroups >=0.8.4 && <1 , text >=0.11 && <1.3@@ -67,8 +66,7 @@ hs-source-dirs: test - build-depends: QuickCheck >= 2.4- , tasty >= 0.3+ build-depends: tasty >= 0.3 , tasty-hunit >= 0.2 , tasty-quickcheck >= 0.3 @@ -76,12 +74,11 @@ , base >=4.6 && < 5 , bytestring >=0.9.1.10 && <0.11 , case-insensitive >=0.3 && <1.3- , either >=3.1 && <5 , exceptions >=0.1.1 && <1 , http-date >=0.0.1 && <0.1 , http-media >=0.4.0 && <0.7 , http-types >=0.8.0 && <0.9- , lens >=4.5 && <4.9+ , lens >=4.5 && <5 , mtl >=2.0.1 && <2.3 , unordered-containers ==0.2.* , webcrank