log to stderr, rpc result to stdout

[fd/haskell-amqp-utils.git] / arbeite.hs

diff --git a/arbeite.hs b/arbeite.hs
index 77b870f1238b671ace2d89128ce1313645325761..dbda5dc9d8f5474303f552468c717e30186d283d 100644 (file)
--- a/arbeite.hs
+++ b/arbeite.hs
@@ -15,6 +15,7 @@ import Network.AMQP.Utils.Helpers
 import Network.AMQP.Utils.Options
 import Paths_amqp_utils (version)
 import System.Environment
+import System.IO
 
 main :: IO ()
 main = do
@@ -66,7 +67,7 @@ rpcServerCallback tid a addi c m@(msg, env) = do
   now <- getZonedTime
   callbackoptions <-
     X.catch
-      (printmsg m (anRiss a) now)
+      (printmsg stderr m (anRiss a) now)
       (\x -> X.throwTo tid (x :: X.SomeException) >> return [])
   either (\e -> printparam' "ERROR" (show (e :: X.SomeException))) return =<<
     X.try