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

2013-12-29 09:47:18 +02:00 · 2013-12-29 09:47:18 +02:00 · 14fbd3860c
commit 14fbd3860c
parent f76b09856b
2 changed files with 2 additions and 2 deletions
--- a/yesod-bin/AddHandler.hs
+++ b/yesod-bin/AddHandler.hs
@ -106,7 +106,7 @@ mkHandler name pattern methods = unlines

    getTypes "" = []
    getTypes ('/':rest) = getTypes rest
-    getTypes ('#':rest) =
+    getTypes (c:rest) | c `elem` "#*" =
        typ : getTypes rest'
      where
        (typ, rest') = break (== '/') rest
--- a/yesod-bin/yesod-bin.cabal
+++ b/yesod-bin/yesod-bin.cabal
@ -1,5 +1,5 @@
 name:            yesod-bin
-version:         1.2.5.4
+version:         1.2.5.5
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>