summaryrefslogtreecommitdiff
path: root/KeyRing.hs
diff options
context:
space:
mode:
Diffstat (limited to 'KeyRing.hs')
-rw-r--r--KeyRing.hs4
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
2403 return $ 2403 return $
2404 case decodeOrFail input of 2404 case decodeOrFail input of
2405 Right (_,_,msg ) -> msg 2405 Right (_,_,msg ) -> msg
2406 Left (_,_,_) -> trace (fname++": read fail") $ Message [] 2406 Left (_,_,_) ->
2407 --trace (fname++": read fail") $
2408 Message []
2407#else 2409#else
2408 return $ decode input 2410 return $ decode input
2409#endif 2411#endif