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

Added missing DynInt checkPattern clause

Browse Source
This commit is contained in:
Michael Snoyman 2009-10-09 00:30:01 +02:00
parent f232ae6fd9
commit ec355d5811
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Web/Restful/Resource.hs
View File

@ -108,6 +108,9 @@ checkPattern' :: ResourcePatternPiece -> String -> CheckPatternReturn
checkPattern' (Static x) y = if x == y then StaticMatch else NoMatch checkPattern' (Static x) y = if x == y then StaticMatch else NoMatch
checkPattern' (Dynamic x) y = DynamicMatch (x, y) checkPattern' (Dynamic x) y = DynamicMatch (x, y)
checkPattern' (Slurp x) _ = error $ "Slurp pattern " ++ x ++ " must be last" checkPattern' (Slurp x) _ = error $ "Slurp pattern " ++ x ++ " must be last"
checkPattern' (DynInt x) y
| all isDigit y = DynamicMatch (x, y)
| otherwise = NoMatch
combine :: SMap -> [CheckPatternReturn] -> Maybe SMap combine :: SMap -> [CheckPatternReturn] -> Maybe SMap
combine s [] = Just $ reverse s combine s [] = Just $ reverse s