yesod-routes 1.1.1.1 → 1.1.2

raw patch · 2 files changed

+1/−27 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Yesod/Routes/Overlap.hs +0/−26
• yesod-routes.cabal +1/−1

@@ -72,29 +72,3 @@         (go' $ resourceTreeName x, go' $ resourceTreeName y)       where         go' = intercalate "/" . front . return-{---- n^2, should be a way to speed it up-findOverlaps :: [Resource a] -> [[Resource a]]-findOverlaps = go . map justPieces-  where-    justPieces :: Resource a -> ([Piece a], Resource a)-    justPieces r@(Resource _ ps _) = (ps, r)--    go [] = []-    go (x:xs) = mapMaybe (mOverlap x) xs ++ go xs--    mOverlap :: ([Piece a], Resource a) -> ([Piece a], Resource a) ->-                Maybe [Resource a]-    mOverlap _ _ = Nothing-                {- FIXME mOverlap-    mOverlap (Static x:xs, xr) (Static y:ys, yr)-        | x == y = mOverlap (xs, xr) (ys, yr)-        | otherwise = Nothing-    mOverlap (MultiPiece _:_, xr) (_, yr) = Just (xr, yr)-    mOverlap (_, xr) (MultiPiece _:_, yr) = Just (xr, yr)-    mOverlap ([], xr) ([], yr) = Just (xr, yr)-    mOverlap ([], _) (_, _) = Nothing-    mOverlap (_, _) ([], _) = Nothing-    mOverlap (_:xs, xr) (_:ys, yr) = mOverlap (xs, xr) (ys, yr)-    -}--}

@@ -1,5 +1,5 @@ name:            yesod-routes-version:         1.1.1.1+version:         1.1.2 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>