haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

comment & white space

Browse Source
This commit is contained in:
Greg Weber 2011-11-22 08:30:43 -06:00
parent d66ef9b057
commit 303057222f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/Yesod/Internal/RouteParsing.hs
View File

@ -331,7 +331,7 @@ pieceFromString ('#':x) = SinglePiece x
pieceFromString ('*':x) = MultiPiece x pieceFromString ('*':x) = MultiPiece x
pieceFromString x = StaticPiece x pieceFromString x = StaticPiece x
-- this is n^2, should be a way to speed it up -- n^2, should be a way to speed it up
findOverlaps :: [Resource] -> [(Resource, Resource)] findOverlaps :: [Resource] -> [(Resource, Resource)]
findOverlaps = go . map justPieces findOverlaps = go . map justPieces
where where
@ -341,7 +341,7 @@ findOverlaps = go . map justPieces
go [] = [] go [] = []
go (x:xs) = mapMaybe (mOverlap x) xs ++ go xs go (x:xs) = mapMaybe (mOverlap x) xs ++ go xs
mOverlap :: ([Piece], Resource) -> ([Piece], Resource) -> mOverlap :: ([Piece], Resource) -> ([Piece], Resource) ->
Maybe (Resource, Resource) Maybe (Resource, Resource)
mOverlap (StaticPiece x:xs, xr) (StaticPiece y:ys, yr) mOverlap (StaticPiece x:xs, xr) (StaticPiece y:ys, yr)
| x == y = mOverlap (xs, xr) (ys, yr) | x == y = mOverlap (xs, xr) (ys, yr)