nested-routes 9.0.1.1 → 9.0.2
raw patch · 2 files changed
+14/−12 lines, 2 filesdep ~basedep ~pred-triedep ~tries
Dependency ranges changed: base, pred-trie, tries, wai-middleware-content-type
Files
- nested-routes.cabal +10/−10
- src/Web/Routes/Nested/Types.hs +4/−2
nested-routes.cabal view
@@ -2,12 +2,12 @@ -- -- see: https://github.com/sol/hpack ----- hash: 63050286fd1f0f13f88a2da4e77f8b0f36e66c14d15a14350450ccc8955349e2+-- hash: 7c520a45928168a93159724ea46821f4fe47ae0e5f9b02998cfa86d1380a1b99 name: nested-routes-version: 9.0.1.1+version: 9.0.2 synopsis: Declarative, compositional Wai responses-description: Please see the README on Github at <https://git.localcooking.com/tooling/pred-trie#readme>+description: Please see the README on Github at <https://github.com/athanclark/nested-routes#readme> category: Web homepage: https://github.com/athanclark/nested-routes#readme bug-reports: https://github.com/athanclark/nested-routes/issues@@ -33,7 +33,7 @@ ghc-options: -Wall build-depends: attoparsec- , base >=4.9 && <5+ , base >=4.11 && <5 , errors , exceptions , extractable-singleton@@ -41,13 +41,13 @@ , monad-control-aligned , mtl , poly-arity >=0.0.7- , pred-trie >=0.6.0+ , pred-trie >=0.6.1 , regex-compat , text- , tries >=0.0.5+ , tries >=0.0.6 , unordered-containers , wai >=3.2.1- , wai-middleware-content-type >=0.6.1.1+ , wai-middleware-content-type >=0.6.2 , wai-middleware-verbs >=0.4.0.1 , wai-transformers >=0.1.0 default-language: Haskell2010@@ -77,15 +77,15 @@ , mtl , nested-routes , poly-arity >=0.0.7- , pred-trie >=0.6.0+ , pred-trie >=0.6.1 , regex-compat , tasty , tasty-hspec , text- , tries >=0.0.5+ , tries >=0.0.6 , unordered-containers , wai >=3.2.1- , wai-middleware-content-type >=0.6.1.1+ , wai-middleware-content-type >=0.6.2 , wai-middleware-verbs >=0.4.0.1 , wai-transformers >=0.1.0 default-language: Haskell2010
src/Web/Routes/Nested/Types.hs view
@@ -56,10 +56,12 @@ } +instance Semigroup (Tries x s) where+ (Tries x1 x2 x3) <> (Tries y1 y2 y3) =+ Tries (x1 <> y1) (x2 <> y2) (x3 <> y3)+ instance Monoid (Tries x s) where mempty = Tries mempty mempty mempty- mappend (Tries x1 x2 x3) (Tries y1 y2 y3) =- Tries (x1 <> y1) (x2 <> y2) (x3 <> y3) -- | The (syntactic) monad for building a router with functions like -- "Web.Routes.Nested.match".