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

Fix add-handler for multipiece routes (closes #640)

Browse Source
This commit is contained in:
Michael Snoyman 2013-12-29 09:47:18 +02:00
parent f76b09856b
commit 14fbd3860c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-bin/AddHandler.hs
View File

@ -106,7 +106,7 @@ mkHandler name pattern methods = unlines
getTypes "" = [] getTypes "" = []
getTypes ('/':rest) = getTypes rest getTypes ('/':rest) = getTypes rest
getTypes ('#':rest) = getTypes (c:rest) | c `elem` "#*" =
typ : getTypes rest' typ : getTypes rest'
where where
(typ, rest') = break (== '/') rest (typ, rest') = break (== '/') rest

2
yesod-bin/yesod-bin.cabal
View File

@ -1,5 +1,5 @@
name: yesod-bin name: yesod-bin
version: 1.2.5.4 version: 1.2.5.5
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>