From ac76e80fa24efe90d312c18a950e65e1e150a776 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 14:41:40 -0400 Subject: propellor spin --- Utility/Base64.hs | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 Utility/Base64.hs (limited to 'Utility/Base64.hs') 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 - - - - 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