give an error when a template doesn't include a .cabal file

fixes commercialhaskell#1535
kadoban · Dec 22, 2015 · 7fc1f82 · 7fc1f82
1 parent cc4552b
commit 7fc1f82
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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