diff options
Diffstat (limited to 'KeyRing.hs')
-rw-r--r-- | KeyRing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1498,7 +1498,7 @@ readPacketsFromFile :: FilePath -> IO Message | |||
1498 | readPacketsFromFile fname = do | 1498 | readPacketsFromFile fname = do |
1499 | -- warn $ fname ++ ": reading..." | 1499 | -- warn $ fname ++ ": reading..." |
1500 | input <- L.readFile fname | 1500 | input <- L.readFile fname |
1501 | #if MIN_VERSION_binary(0,6,4) | 1501 | #if MIN_VERSION_binary(0,7,0) |
1502 | return $ | 1502 | return $ |
1503 | case decodeOrFail input of | 1503 | case decodeOrFail input of |
1504 | Right (_,_,msg ) -> msg | 1504 | Right (_,_,msg ) -> msg |