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

2
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