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

fixes commercialhaskell#1535
kadoban · Dec 22, 2015 · c3674b0 · c3674b0
1 parent d0d2cbf
commit c3674b0
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Stack/New.hs b/src/Stack/New.hs
@@ -197,6 +197,9 @@ applyTemplate project template nonceParams dir templateText = do
                    throwM (InvalidTemplate template (show e)))
     when (M.null files) $
          throwM (InvalidTemplate template "Template does not contain any files")
+    unless (any (".cabal" `isSuffixOf`) . M.keys $ files) $
+         throwM (InvalidTemplate template "Template does not contain a .cabal\
+                                          \ file")
     liftM
         M.fromList
         (mapM