base64

Fast Haskell base64 encoding/decoding (docs.ppad.tech/base64).
git clone git://git.ppad.tech/base64.git
Log | Files | Refs | README | LICENSE

Weight.hs (1778B)

      1 {-# LANGUAGE OverloadedStrings #-}
      2 {-# LANGUAGE PackageImports #-}
      3 
      4 module Main where
      5 
      6 import qualified Data.ByteString as BS
      7 import qualified "base64-bytestring" Data.ByteString.Base64 as R0
      8 import qualified "base64" Data.ByteString.Base64 as R1
      9 import qualified "ppad-base64" Data.ByteString.Base64 as B64
     10 import qualified Weigh as W
     11 
     12 inp :: BS.ByteString
     13 inp = "jtobin was here benching stuffjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin was here benching stufjtobin w"
     14 
     15 binp :: BS.ByteString
     16 binp = B64.encode inp
     17 
     18 main :: IO ()
     19 main = W.mainWith $ do
     20   W.func "ppad-base64 (encode)" B64.encode inp
     21   W.func "base64-bytestring (encode)" R0.encode inp
     22   W.func "base64 (encode)" R1.encodeBase64' inp
     23 
     24   W.func "ppad-base64 (decode)" B64.decode binp
     25   W.func "base64-bytestring (decode)" R0.decode binp
     26   W.func "base64 (decode)" R1.decodeBase64Untyped binp