b0VIM 7.4"xâR( Rfjoeydarkstar~joey/src/git-annex/Utility/Base64.hs 3210#"! Utpadi å è嶳€|{@?èÖÕ¹£¢{XW; å ä bad = error "bad base64 encoded data" wherefromB64 = fromMaybe bad . fromB64MaybefromB64 :: String -> StringfromB64Maybe s = w82s <$> decode sfromB64Maybe :: String -> Maybe StringtoB64 = encode . s2w8toB64 :: String -> String import Data.Maybeimport Control.Applicativeimport Data.Bits.Utilsimport "dataenc" Codec.Binary.Base64module Utility.Base64 (toB64, fromB64Maybe, fromB64) where -} - Licensed under the GNU GPL version 3 or higher. - - Copyright 2011 Joey Hess -{- Simple Base64 access