Send "stack templates" output to stdout #1792

mgsloan · mgsloan · commit 3f7b50fe598e · 2016-02-17T19:53:55.000-08:00
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
