Allow !# as well as #! #652

yesod-routes/Yesod/Routes/Parse.hs

@@ -184,6 +184,7 @@ ttToType (TTList t) = ListT `AppT` ttToType t
 
 pieceFromString :: String -> Either String (CheckOverlap, Piece String)
 pieceFromString ('#':'!':x) = Right $ (False, Dynamic x)
+pieceFromString ('!':'#':x) = Right $ (False, Dynamic x) -- https://github.com/yesodweb/yesod/issues/652
 pieceFromString ('#':x) = Right $ (True, Dynamic x)
 pieceFromString ('*':x) = Left x
 pieceFromString ('+':x) = Left x

yesod-routes/test/Hierarchy.hs

@@ -77,6 +77,8 @@ do
     let resources = [parseRoutes|
 / HomeR GET
 
+/!#Int BackwardsR GET
+
 /admin/#Int AdminR:
     /            AdminRootR GET
     /login       LoginR     GET POST
@@ -141,6 +143,9 @@ getAfter   :: Handler site String; getAfter = "after"
 getHomeR :: Handler site String
 getHomeR = "home"
 
+getBackwardsR :: Int -> Handler site Text
+getBackwardsR _ = pack "backwards"
+
 getAdminRootR :: Int -> Handler site Text
 getAdminRootR i = pack $ "admin root: " ++ show i
 

yesod-routes/yesod-routes.cabal

@@ -1,5 +1,5 @@
 name:            yesod-routes
-version:         1.2.0.5
+version:         1.2.0.6
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>