diff --git a/yesod-bin/AddHandler.hs b/yesod-bin/AddHandler.hs index f36d4f2a..52d57cdd 100644 --- a/yesod-bin/AddHandler.hs +++ b/yesod-bin/AddHandler.hs @@ -84,13 +84,22 @@ addHandlerInteractive = do methods <- getLine addHandlerFiles cabal routePair pattern methods +getRoutesFilePath :: IO FilePath +getRoutesFilePath = do + let oldPath = "config/routes" + oldExists <- doesFileExist oldPath + pure $ if oldExists + then oldPath + else "config/routes.yesodroutes" + addHandlerFiles :: FilePath -> (String, FilePath) -> String -> String -> IO () addHandlerFiles cabal (name, handlerFile) pattern methods = do src <- getSrcDir cabal let applicationFile = concat [src, "/Application.hs"] modify applicationFile $ fixApp name modify cabal $ fixCabal name - modify "config/routes" $ fixRoutes name pattern methods + routesPath <- getRoutesFilePath + modify routesPath $ fixRoutes name pattern methods writeFile handlerFile $ mkHandler name pattern methods specExists <- doesFileExist specFile unless specExists $ diff --git a/yesod-bin/ChangeLog.md b/yesod-bin/ChangeLog.md index 48fb122e..c739d782 100644 --- a/yesod-bin/ChangeLog.md +++ b/yesod-bin/ChangeLog.md @@ -1,5 +1,9 @@ # ChangeLog for yesod-bin +## 1.6.0.6 + +Fix the `add-handler` subcommand to support both the old default routes filename (`routes`) and the new one (`routes.yesodroutes`) [#1688](https://github.com/yesodweb/yesod/pull/1688) + ## 1.6.0.5 * Use process groups to ensure GHC is killed on Ctrl-C [#1683](https://github.com/yesodweb/yesod/pull/1683) diff --git a/yesod-bin/yesod-bin.cabal b/yesod-bin/yesod-bin.cabal index 5e6db779..a8535770 100644 --- a/yesod-bin/yesod-bin.cabal +++ b/yesod-bin/yesod-bin.cabal @@ -1,5 +1,5 @@ name: yesod-bin -version: 1.6.0.5 +version: 1.6.0.6 license: MIT license-file: LICENSE author: Michael Snoyman