diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Data/BEncode.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index 80f0108..7539ede 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
@@ -37,6 +37,7 @@ import Data.Attoparsec.ByteString.Char8 (Parser) | |||
37 | import qualified Data.Attoparsec.ByteString.Char8 as P | 37 | import qualified Data.Attoparsec.ByteString.Char8 as P |
38 | import Data.ByteString (ByteString) | 38 | import Data.ByteString (ByteString) |
39 | import qualified Data.ByteString as B | 39 | import qualified Data.ByteString as B |
40 | import qualified Data.ByteString.Char8 as BC | ||
40 | import qualified Data.ByteString.Lazy as Lazy | 41 | import qualified Data.ByteString.Lazy as Lazy |
41 | import Data.ByteString.Internal as B (c2w, w2c) | 42 | import Data.ByteString.Internal as B (c2w, w2c) |
42 | import qualified Data.ByteString.Builder as B | 43 | import qualified Data.ByteString.Builder as B |
@@ -178,7 +179,7 @@ fromAscAssocs = error "fromAscAssocs" | |||
178 | reqKey :: BEncodable a => Map ByteString BEncode -> ByteString -> Result a | 179 | reqKey :: BEncodable a => Map ByteString BEncode -> ByteString -> Result a |
179 | reqKey d key | 180 | reqKey d key |
180 | | Just b <- M.lookup key d = fromBEncode b | 181 | | Just b <- M.lookup key d = fromBEncode b |
181 | | otherwise = Left ("required field `" ++ show key ++ " not found") | 182 | | otherwise = Left ("required field `" ++ BC.unpack key ++ "' not found") |
182 | 183 | ||
183 | optKey :: BEncodable a => Map ByteString BEncode -> ByteString -> Result (Maybe a) | 184 | optKey :: BEncodable a => Map ByteString BEncode -> ByteString -> Result (Maybe a) |
184 | optKey d key | 185 | optKey d key |