diff options
| author |  Magnus Therning <magnus@therning.org> | 2013-08-06 11:00:52 +0200 |
|---|---|---|
| committer |  Joey Hess <joeyh@joeyh.name> | 2015-05-07 18:07:05 -0400 |
| commit | 6585821a3528b29a0e75b461d429eba54dae12b5 (patch) | |
| tree | 343dfa082fa968d191b8e6cdf3659326674bfe4c /Utility/Base64.hs | |
| parent | 97d7d99f528fdfd4aa7297055964f778333187d6 (diff) | |
Replace dataenc with sandi.
The library dataenc is unmaintained and has been superseded by sandi.
Signed-off-by: Magnus Therning <magnus@therning.org>
Diffstat (limited to 'Utility/Base64.hs')
| -rw-r--r-- | Utility/Base64.hs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/Utility/Base64.hs b/Utility/Base64.hs index 80cc122a1..6ab3c984f 100644 --- a/Utility/Base64.hs +++ b/Utility/Base64.hs @@ -1,23 +1,22 @@ {- Simple Base64 encoding of Strings - - - Copyright 2011 Joey Hess <id@joeyh.name> + - Copyright 2011, 2015 Joey Hess <id@joeyh.name> - - License: BSD-2-clause -} module Utility.Base64 (toB64, fromB64Maybe, fromB64, prop_b64_roundtrips) where -import qualified "dataenc" Codec.Binary.Base64 as B64 -import Control.Applicative +import qualified "sandi" Codec.Binary.Base64 as B64 import Data.Maybe -import qualified Data.ByteString.Lazy as L -import Data.ByteString.Lazy.UTF8 (fromString, toString) +import Data.ByteString.UTF8 (fromString, toString) toB64 :: String -> String -toB64 = B64.encode . L.unpack . fromString +toB64 = toString . B64.encode . fromString fromB64Maybe :: String -> Maybe String -fromB64Maybe s = toString . L.pack <$> B64.decode s +fromB64Maybe s = either (const Nothing) (Just . toString) + (B64.decode $ fromString s) fromB64 :: String -> String fromB64 = fromMaybe bad . fromB64Maybe |