rest-wai 0.1.0.8 → 0.2.0.1

raw patch · 3 files changed

Files

CHANGELOG.md +10/−0
rest-wai.cabal +5/−4
src/Rest/Driver/Wai.hs +4/−2

CHANGELOG.md view

@@ -1,5 +1,15 @@ # Changelog +#### 0.2.0.1++* Allow rest-core-0.39.++## 0.2++* Breaking: `Applicative` and `Monad` constraint on `m` in+  `apiToHandler'`. See `rest-core-0.37` for more details.+* Allow `http-types 0.9.*`+ #### 0.1.0.8  * Allow `rest-core 0.36.*`

rest-wai.cabal view

@@ -1,5 +1,5 @@ name:                rest-wai-version:             0.1.0.8+version:             0.2.0.1 description:         Rest driver for WAI applications. synopsis:            Rest driver for WAI applications. maintainer:          code@silk.co@@ -23,13 +23,14 @@   exposed-modules:   Rest.Driver.Wai   build-depends:       base == 4.*+    , base-compat >= 0.8 && < 0.10     , bytestring == 0.10.*     , case-insensitive == 1.2.*     , containers >= 0.4 && < 0.6-    , http-types == 0.8.*+    , http-types >= 0.8 && < 0.10     , mime-types == 0.1.*     , mtl >= 2.0 && < 2.3-    , rest-core >= 0.35 && < 0.37+    , rest-core >= 0.35 && < 0.40     , text >= 0.11 && < 1.3     , unordered-containers == 0.2.*-    , wai >= 2.1 && < 3.1+    , wai >= 2.1 && < 3.3

src/Rest/Driver/Wai.hs view

@@ -1,3 +1,4 @@+{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE     CPP   , GeneralizedNewtypeDeriving@@ -6,7 +7,8 @@   #-} module Rest.Driver.Wai (apiToApplication) where -import Control.Applicative+import Prelude.Compat+ import Control.Arrow ((***)) import Control.Monad.Trans (lift) import Network.HTTP.Types.Status (status200)@@ -25,7 +27,7 @@ import qualified Rest.Driver.Types as Rest import qualified Rest.Run          as Rest -apiToApplication :: Run m IO -> Api m -> Application+apiToApplication :: (Applicative m, Monad m) => Run m IO -> Api m -> Application apiToApplication run api req = #if MIN_VERSION_wai(3,0,0)   \cont ->