send adlc errors to stdout

adl-lang · Dec 23, 2024 · 42b6b50 · 42b6b50
1 parent cdbe52a
commit 42b6b50
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/haskell/compiler/adlc-bootstrap/Main.hs b/haskell/compiler/adlc-bootstrap/Main.hs
@@ -5,6 +5,7 @@ import System.Console.GetOpt
 import System.Exit
 import System.Environment (getArgs)
 import System.FilePath(joinPath)
+import System.IO(stderr)
 import Data.List(intercalate,partition)
 
 import qualified Data.Text as T
@@ -93,5 +94,5 @@ main = do
       a <- unEIO $ eio
       case a of
         (Left perr) ->
-          T.putStrLn perr >> exitWith (ExitFailure 1)
+          T.hPutStrLn stderr perr >> exitWith (ExitFailure 1)
         (Right _) -> exitWith ExitSuccess
diff --git a/haskell/compiler/adlc/Main.hs b/haskell/compiler/adlc/Main.hs
@@ -30,6 +30,7 @@ import System.Console.GetOpt
 import System.Environment (getArgs)
 import System.Exit
 import System.FilePath(joinPath)
+import System.IO(stderr)
 
 stdAdlFlags :: FilePath -> [String] -> AdlFlags
 stdAdlFlags libDir mergeFileExtensions =
@@ -360,5 +361,5 @@ main = do
       a <- unEIO $ eio
       case a of
         (Left perr) ->
-          T.putStrLn perr >> exitWith (ExitFailure 1)
+          T.hPutStrLn stderr perr >> exitWith (ExitFailure 1)
         (Right _) -> exitWith ExitSuccess