build

1 files changed, 3 insertions, 1 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index cc45269..c2e209c 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -2403,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