nested-routes 0.2.0.2 → 0.2.1

raw patch · 2 files changed

+6/−3 lines, 2 filesdep ~pred-triePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: pred-trie

API changes (from Hackage documentation)

Files

• nested-routes.cabal +2/−2
• src/Web/Routes/Nested.hs +4/−1

@@ -1,5 +1,5 @@ Name:                   nested-routes-Version:                0.2.0.2+Version:                0.2.1 Author:                 Athan Clark <athan.clark@gmail.com> Maintainer:             Athan Clark <athan.clark@gmail.com> License:                BSD3@@ -32,7 +32,7 @@                       , lucid                       , bytestring                       , attoparsec-                      , pred-trie >= 0.0.6.1+                      , pred-trie >= 0.0.7.1  Test-Suite spec   Type:                 exitcode-stdio-1.0

@@ -46,7 +46,11 @@ import qualified Data.ByteString.Lazy              as BL import           Data.Maybe                        (fromMaybe) +import Debug.Trace+import Data.Trie.Pred.Unified+import Data.Trie.Pred.Unified.Tail + newtype HandlerT z m a = HandlerT   { runHandler :: WriterT ( RUPTrie T.Text (Either (VerbListenerT z (FileExtListenerT Response m ()) m ()) (VerbListenerT z Response m ()))                           , RUPTrie T.Text (Either (VerbListenerT z (FileExtListenerT Response m ()) m ()) (VerbListenerT z Response m ())) ) m a }@@ -157,7 +161,6 @@       mFileext = case pathInfo req of                          [] -> Just Html                          xs -> possibleExts $ getFileExt $ last xs-      -- meitherNotFound :: Maybe (Either (VerbListenerT z (FileExtListenerT Response m ()) m ()) (VerbListenerT z Response m ()))       meitherNotFound = P.lookupNearestParent (pathInfo req) nftrie    notFoundBasic <- handleNotFound Html Get meitherNotFound