From 6269b08863cdac6ddf023ca409c3131cbe5bc5e3 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 14:06:20 -0400 Subject: propellor spin --- Utility/Base64.hs | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 Utility/Base64.hs (limited to 'Utility') diff --git a/Utility/Base64.hs b/Utility/Base64.hs new file mode 100644 index 00000000..0c6c8677 --- /dev/null +++ b/Utility/Base64.hs @@ -0,0 +1,24 @@ +{- Simple Base64 access + - + - Copyright 2011 Joey Hess + - + - 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" -- cgit v1.2.3