From 8ab56a5cf2c26e091187d61f9bd08ca362e696bb Mon Sep 17 00:00:00 2001 From: Magnus Therning Date: Tue, 6 Aug 2013 11:00:52 +0200 Subject: [PATCH] Replace dataenc with sandi. The library dataenc is unmaintained and has been superseded by sandi. Signed-off-by: Magnus Therning --- Utility/Base64.hs | 13 ++++++------- git-annex.cabal | 2 +- 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/Utility/Base64.hs b/Utility/Base64.hs index 80cc122a17..6ab3c984f2 100644 --- a/Utility/Base64.hs +++ b/Utility/Base64.hs @@ -1,23 +1,22 @@ {- Simple Base64 encoding of Strings - - - Copyright 2011 Joey Hess + - Copyright 2011, 2015 Joey Hess - - 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 diff --git a/git-annex.cabal b/git-annex.cabal index 1f32067b21..03331eb79e 100644 --- a/git-annex.cabal +++ b/git-annex.cabal @@ -105,7 +105,7 @@ Executable git-annex Main-Is: git-annex.hs Build-Depends: MissingH, hslogger, directory, filepath, containers (>= 0.5.0.0), utf8-string, mtl (>= 2), - bytestring, old-locale, time, dataenc, process, json, + bytestring, old-locale, time, sandi, process, json, base (>= 4.5 && < 4.9), monad-control, exceptions (>= 0.6), transformers, IfElse, text, QuickCheck >= 2.1, bloomfilter, edit-distance, SafeSemaphore, uuid, random, dlist, unix-compat, async, stm (>= 2.3),