diff options
Diffstat (limited to 'KeyRing.hs')
-rw-r--r-- | KeyRing.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -139,6 +139,9 @@ import Data.Traversable ( sequenceA ) | |||
139 | #if ! MIN_VERSION_base(4,6,0) | 139 | #if ! MIN_VERSION_base(4,6,0) |
140 | import GHC.Exts ( Down(..) ) | 140 | import GHC.Exts ( Down(..) ) |
141 | #endif | 141 | #endif |
142 | #if MIN_VERSION_binary(0,7,0) | ||
143 | import Debug.Trace | ||
144 | #endif | ||
142 | import Network.Socket -- (SockAddr) | 145 | import Network.Socket -- (SockAddr) |
143 | import qualified Data.ByteString.Lazy.Char8 as Char8 | 146 | import qualified Data.ByteString.Lazy.Char8 as Char8 |
144 | 147 | ||
@@ -2400,7 +2403,9 @@ readPacketsFromFile ctx fname = do | |||
2400 | return $ | 2403 | return $ |
2401 | case decodeOrFail input of | 2404 | case decodeOrFail input of |
2402 | Right (_,_,msg ) -> msg | 2405 | Right (_,_,msg ) -> msg |
2403 | Left (_,_,_) -> trace (fname++": read fail") $ Message [] | 2406 | Left (_,_,_) -> |
2407 | --trace (fname++": read fail") $ | ||
2408 | Message [] | ||
2404 | #else | 2409 | #else |
2405 | return $ decode input | 2410 | return $ decode input |
2406 | #endif | 2411 | #endif |