summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 14:41:40 -0400
committerJoey Hess2014-03-31 14:41:40 -0400
commitac76e80fa24efe90d312c18a950e65e1e150a776 (patch)
treeefbd7d39b6fea21a0325b2442fa78eb85206d53d /Utility
parent48b3c546b75ee27638562e3031e8c42677d506e2 (diff)
propellor spin
Diffstat (limited to 'Utility')
-rw-r--r--Utility/Base64.hs24
1 files changed, 0 insertions, 24 deletions
diff --git a/Utility/Base64.hs b/Utility/Base64.hs
deleted file mode 100644
index 0c6c8677..00000000
--- a/Utility/Base64.hs
+++ /dev/null
@@ -1,24 +0,0 @@
-{- Simple Base64 access
- -
- - Copyright 2011 Joey Hess <joey@kitenet.net>
- -
- - Licensed under the GNU GPL version 3 or higher.
- -}
-
-module Utility.Base64 (toB64, fromB64Maybe, fromB64) where
-
-import "dataenc" Codec.Binary.Base64
-import Data.Bits.Utils
-import Control.Applicative
-import Data.Maybe
-
-toB64 :: String -> String
-toB64 = encode . s2w8
-
-fromB64Maybe :: String -> Maybe String
-fromB64Maybe s = w82s <$> decode s
-
-fromB64 :: String -> String
-fromB64 = fromMaybe bad . fromB64Maybe
- where
- bad = error "bad base64 encoded data"