Merge pull request #1317 from well-typed/bolt12/1112

Write trace messages to stderr

Author: bolt12

hs-bindgen/src-internal/HsBindgen/Util/Tracer.hs

@@ -59,7 +59,7 @@ import System.Console.ANSI (Color (..), ColorIntensity (Vivid),
                             ConsoleLayer (Foreground),
                             SGR (SetColor, SetConsoleIntensity),
                             hSupportsANSIColor, setSGRCode)
-import System.IO (Handle, hPutStr, stdout)
+import System.IO (Handle, hPutStr, stderr)
 import Text.SimplePrettyPrint (Context, CtxDoc)
 import Text.SimplePrettyPrint qualified as PP
 
@@ -341,10 +341,10 @@ instance Contravariant OutputConfig where
 
 -- | The default tracer configuration
 --
--- - writes to 'stdout', and
+-- - writes to 'stderr', and
 -- - uses ANSI colors, if available.
 instance Default (OutputConfig a) where
-  def = OutputHandle stdout Nothing
+  def = OutputHandle stderr Nothing
 
 -- | Output configuration suitable for compile-time code generation with
 -- Template Haskell.
@@ -480,7 +480,7 @@ instance (Show a, Typeable a) => Exception (TraceException a) where
     toException = hsBindgenExceptionToException
     fromException = hsBindgenExceptionFromException
     -- We only display errors in tests.
-    displayException (TraceException _) = "An error happend (see above)"
+    displayException (TraceException _) = "An error happened (see above)"
 
 {-------------------------------------------------------------------------------
   Safe tracer