diff --git a/yesod-bin/main.hs b/yesod-bin/main.hs index 07cca4e1..f81afff3 100755 --- a/yesod-bin/main.hs +++ b/yesod-bin/main.hs @@ -102,7 +102,7 @@ main = do ] optParser' let cabal = rawSystem' (cabalCommand o) case optCommand o of - Init _ -> error "The init command has been removed. Please use 'stack new' instead" + Init _ -> initErrorMsg HsFiles -> mkHsFile Configure -> cabal ["configure"] Build es -> touch' >> cabal ("build":es) @@ -144,6 +144,17 @@ main = do hPutStrLn stderr "Instead, please just run 'stack test'" exitFailure + initErrorMsg = do + mapM_ putStrLn + [ "The init command has been removed." + , "Please use 'stack new