Merge branch 'master' of jotunheim:samizdat/kiki

1 files changed, 6 insertions, 1 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index ffd8183..c2e209c 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -139,6 +139,9 @@ import Data.Traversable ( sequenceA )
 #if ! MIN_VERSION_base(4,6,0)
 import GHC.Exts ( Down(..) )
 #endif
+#if MIN_VERSION_binary(0,7,0)
+import Debug.Trace
+#endif
 import Network.Socket -- (SockAddr)
 import qualified Data.ByteString.Lazy.Char8 as Char8
 
@@ -2400,7 +2403,9 @@ readPacketsFromFile ctx fname = do
     return $
       case decodeOrFail input of
         Right (_,_,msg ) -> msg
-        Left  (_,_,_)    -> trace (fname++": read fail") $ Message []
+        Left  (_,_,_)    ->
+        --trace (fname++": read fail") $
+          Message []
 #else
     return $ decode input
 #endif