diff --git a/yesod-bin/AddHandler.hs b/yesod-bin/AddHandler.hs index 49fe5685..27fb40b5 100644 --- 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 diff --git a/yesod-bin/yesod-bin.cabal b/yesod-bin/yesod-bin.cabal index 56fd4a54..0fbc426c 100644 --- 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