handle server connection close exit code

diff --git a/agitprop.hs b/agitprop.hs
index c82adb0dcb33f8e78a18517e03cb3352e0b66d5c..233e881d278fa82b3490add63cb3fee7e6713370 100644 (file)
--- a/agitprop.hs
+++ b/agitprop.hs
@@ -82,7 +82,7 @@ main = do
            then mapM_ (publishOneMsg Nothing) (BL.lines messageFile)
            else publishOneMsg (Just (inputFile args)) messageFile
          hr "END sending")
-    (\exception -> printparam' "exception" $ show (exception :: X.SomeException))
+    exceptionHandler
   -- all done. wait and close.
   if (confirm args)
     then waitForConfirms chan >>= (printparam' "confirmed") . show