Trace to stderr by default

IxpertaSolutions · Apr 21, 2017 · be12fd1 · be12fd1
1 parent a508424
commit be12fd1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Control/Monad/Freer/Trace.hs b/src/Control/Monad/Freer/Trace.hs
@@ -42,7 +42,7 @@ import Control.Monad ((>>=), return)
 import Data.Either (Either(Left, Right))
 import Data.Function ((.), const)
 import Data.String (String)
-import System.IO (IO, putStrLn)
+import System.IO (IO, hPutStrLn, stderr)
 
 import Control.Monad.Freer.Internal
     (Eff(E, Val), Member, decomp, qApp, send, tsingleton)
@@ -68,7 +68,7 @@ runTrace f (E u q) = case decomp u of
 
 -- | Simple hanler for 'Trace' 'String' that just writes it to stdout.
 runTraceIO :: Member IO effs => Eff (Trace String ': effs) a -> Eff effs a
-runTraceIO = runTrace (send . putStrLn)
+runTraceIO = runTrace (send . hPutStrLn stderr)
 
 -- | Ignore traces.
 runTraceSilent