diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 14:41:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 14:41:40 -0400 |
| commit | ac76e80fa24efe90d312c18a950e65e1e150a776 (patch) | |
| tree | efbd7d39b6fea21a0325b2442fa78eb85206d53d /Utility | |
| parent | 48b3c546b75ee27638562e3031e8c42677d506e2 (diff) | |
propellor spin
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/Base64.hs | 24 |
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" |