Send "stack templates" output to stdout commercialhaskell#1792

ljli · Feb 18, 2016 · 3f7b50f · 3f7b50f
1 parent b5f11df
commit 3f7b50f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Stack/New.hs b/src/Stack/New.hs
@@ -270,7 +270,7 @@ listTemplates
     => m ()
 listTemplates = do
     templates <- getTemplates
-    mapM_ ($logInfo . templateName) (S.toList templates)
+    mapM_ (liftIO . T.putStrLn . templateName) (S.toList templates)
 
 -- | Get the set of templates.
 getTemplates