diff --git a/src/Stack/New.hs b/src/Stack/New.hs index 71c7f346fc..41ece17176 100644 --- a/src/Stack/New.hs +++ b/src/Stack/New.hs @@ -197,6 +197,10 @@ applyTemplate project template nonceParams dir templateText = do throwM (InvalidTemplate template (show e))) when (M.null files) $ throwM (InvalidTemplate template "Template did not specify any files.") + unless (any (".cabal" `isSuffixOf`) . M.keys $ files) $ + throwM (InvalidTemplate template "Template does not contain a .cabal\ + \ file, and the result could not be\ + \ made into a stack project.") liftM M.fromList (mapM