summaryrefslogtreecommitdiff
path: root/Utility/Base64.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Utility/Base64.hs')
-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"