diff options
author | joe <joe@bzcan7s7awrmjbam.onion> | 2014-04-18 18:29:16 -0400 |
---|---|---|
committer | joe <joe@bzcan7s7awrmjbam.onion> | 2014-04-18 18:29:16 -0400 |
commit | e5a61ddac138be9b3a9cd56a7b23811935bc738e (patch) | |
tree | 05db9d16e7345d4effb4007eedfc65f03b5f41ab /KeyRing.hs | |
parent | ae6098f2d5b77ab03b0a01d39e20e071c547fa83 (diff) |
oops decodeOrFail is MIN_VERSION_binary(0,7,0) rather than
MIN_VERSION_binary(0,6,4)
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 |