From 303057222fd0d8ffcebd560a29d8da9afe93949c Mon Sep 17 00:00:00 2001 From: Greg Weber Date: Tue, 22 Nov 2011 08:30:43 -0600 Subject: [PATCH] comment & white space --- yesod-core/Yesod/Internal/RouteParsing.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-core/Yesod/Internal/RouteParsing.hs b/yesod-core/Yesod/Internal/RouteParsing.hs index 6ce784ac..dcb475c4 100644 --- a/yesod-core/Yesod/Internal/RouteParsing.hs +++ b/yesod-core/Yesod/Internal/RouteParsing.hs @@ -331,7 +331,7 @@ pieceFromString ('#':x) = SinglePiece x pieceFromString ('*':x) = MultiPiece 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 = go . map justPieces where @@ -341,7 +341,7 @@ findOverlaps = go . map justPieces go [] = [] go (x:xs) = mapMaybe (mOverlap x) xs ++ go xs - mOverlap :: ([Piece], Resource) -> ([Piece], Resource) -> + mOverlap :: ([Piece], Resource) -> ([Piece], Resource) -> Maybe (Resource, Resource) mOverlap (StaticPiece x:xs, xr) (StaticPiece y:ys, yr) | x == y = mOverlap (xs, xr) (ys, yr)