From 14fbd3860cdc53638429458b4bf0070a2f976577 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 29 Dec 2013 09:47:18 +0200
Subject: [PATCH] Fix add-handler for multipiece routes (closes #640)

---
 yesod-bin/AddHandler.hs   | 2 +-
 yesod-bin/yesod-bin.cabal | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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 <michael@snoyman.com>