Update stdout function

stackbuilders · Jul 19, 2024 · d51d4ef · d51d4ef
1 parent 5051e6b
commit d51d4ef
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/System/Hapistrano.hs b/src/System/Hapistrano.hs
@@ -278,7 +278,7 @@ initConfig getLine' = do
   configFilePath <- (FilePath.</> "hap.yml") <$> Directory.getCurrentDirectory
   alreadyExisting <- Directory.doesFileExist configFilePath
   when alreadyExisting $ do
-    hPutStrLn stderr "'hap.yml' already exists"
+    putStrLn "'hap.yml' already exists"
     exitFailure
 
   putStrLn "Creating 'hap.yml'"
@@ -296,7 +296,7 @@ initConfig getLine' = do
         pure def
       else
         either
-          (\err -> hPutStrLn stderr (M.errorBundlePretty err) >> prompt parameterName def parser)
+          (\err -> putStrLn (M.errorBundlePretty err) >> prompt parameterName def parser)
           pure
           (M.parse (parser <* M.eof) "" userInput)
 
@@ -307,7 +307,7 @@ initConfig getLine' = do
         _ -> Nothing
 
     prompt' :: String -> IO String
-    prompt' title = hPutStrLn stderr title >> getLine'
+    prompt' title = putStrLn title >> getLine'
 
     generateUserConfig :: IO InitTemplateConfig -> IO InitTemplateConfig
     generateUserConfig initCfg = do