diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-08-12 10:57:48 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-08-12 10:57:48 -0400 |
commit | a607baeb64b7f3e221dcc4856afefbe21c6c9bd2 (patch) | |
tree | 79a95f0df3b9c0e0ac13c1d8c63980bef40c512a /Utility/Base64.hs | |
parent | 7f9940c1f4a6a533c1d5e7cd7980419f59524ff3 (diff) |
avoid throwing exception when String is not encoded using the filesystem encoding
Since _encodeFilePath generates a String that doesn't use the filesystem
encoding, when this exception is caught, we know we already have such a
String, and can just return it as-is.
Diffstat (limited to 'Utility/Base64.hs')
-rw-r--r-- | Utility/Base64.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/Base64.hs b/Utility/Base64.hs index 8b43ecfab..10ec9e030 100644 --- a/Utility/Base64.hs +++ b/Utility/Base64.hs @@ -31,7 +31,8 @@ fromB64 = fromMaybe bad . fromB64Maybe bad = error "bad base64 encoded data" -- Only ascii strings are tested, because an arbitrary string may contain --- characters not encoded using the FileSystemEncoding. +-- characters not encoded using the FileSystemEncoding, which would thus +-- not roundtrip, as fromB64 always generates an output encoded that way. prop_b64_roundtrips :: String -> Bool prop_b64_roundtrips s | all (isAscii) s = s == fromB64 (toB64 s) |