apiary 0.4.0.0 → 0.4.0.1
raw patch · 3 files changed
+9/−7 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Control.Monad.Apiary.Action: def :: Default a => a
- Control.Monad.Apiary.Filter: CONNECT :: StdMethod
- Control.Monad.Apiary.Filter: DELETE :: StdMethod
- Control.Monad.Apiary.Filter: GET :: StdMethod
- Control.Monad.Apiary.Filter: HEAD :: StdMethod
- Control.Monad.Apiary.Filter: OPTIONS :: StdMethod
- Control.Monad.Apiary.Filter: PATCH :: StdMethod
- Control.Monad.Apiary.Filter: POST :: StdMethod
- Control.Monad.Apiary.Filter: PUT :: StdMethod
- Control.Monad.Apiary.Filter: TRACE :: StdMethod
- Control.Monad.Apiary.Filter: data StdMethod :: *
Files
apiary.cabal view
@@ -1,5 +1,5 @@ name: apiary-version: 0.4.0.0+version: 0.4.0.1 x-revision: 1 synopsis: Simple web framework inspired by scotty. description:@@ -16,7 +16,7 @@ . main :: IO () main = run 3000 . runApiary def $ do-   [capture|/:Int|] . queryFirst' "name" . stdMethod GET . action $ \\age name -> do+   [capture|/:Int|] . queryFirst' "name" . stdMethod GET . action $ \\age name -> do       guard (age >= 18)       contentType "text/html"       lbs . L.concat $ ["<h1>Hello, ", L.fromStrict name, "!</h1>"]
src/Control/Monad/Apiary/Action.hs view
@@ -27,7 +27,7 @@ , redirect , redirectPermanently, redirectFound, redirectSeeOther, redirectTemporary -- * Reexport- , def+ , module Data.Default.Class ) where import Control.Monad.Apiary.Action.Internal
src/Control/Monad/Apiary/Filter.hs view
@@ -10,12 +10,14 @@ , queryAll, queryAll', queryFirst, queryFirst' , function, function' -- * Reexport- , StdMethod(..)+ -- StdMethod(..)+ , module Network.HTTP.Types ) where import Control.Monad import Network.Wai-import Network.HTTP.Types+import qualified Network.HTTP.Types as Use+import Network.HTTP.Types (StdMethod(..)) import qualified Data.ByteString as S import Data.Maybe @@ -72,11 +74,11 @@ hasQuery :: Monad m => S.ByteString -> ApiaryT c m a -> ApiaryT c m a hasQuery q = function_ (any ((q ==) . fst) . queryString) -method :: Monad m => Method -> ApiaryT c m a -> ApiaryT c m a+method :: Monad m => Use.Method -> ApiaryT c m a -> ApiaryT c m a method m = function_ ((m ==) . requestMethod) stdMethod :: Monad m => StdMethod -> ApiaryT c m a -> ApiaryT c m a-stdMethod = method . renderStdMethod+stdMethod = method . Use.renderStdMethod -- | filter by 'Control.Monad.Apiary.Action.rootPattern' of 'Control.Monad.Apiary.Action.ApiaryConfig'. root :: Monad m => ApiaryT c m b -> ApiaryT c m b