bip39

BIP39 mnemonic codes in Haskell (docs.ppad.tech/bip39).
git clone git://git.ppad.tech/bip39.git
Log | Files | Refs | README | LICENSE

Main.hs (601B)

      1 {-# OPTIONS_GHC -fno-warn-orphans #-}
      2 {-# LANGUAGE BangPatterns #-}
      3 {-# LANGUAGE OverloadedStrings #-}
      4 
      5 module Main where
      6 
      7 import Criterion.Main
      8 import Crypto.KDF.BIP39
      9 
     10 main :: IO ()
     11 main = defaultMain [
     12     bgroup "ppad-bip39" [
     13         bench_mnemonic
     14       , bench_seed
     15     ]
     16   ]
     17 
     18 bench_mnemonic :: Benchmark
     19 bench_mnemonic = bench "mnemonic" $ nf mnemonic "my ultra secret entropy!"
     20 
     21 bench_seed :: Benchmark
     22 bench_seed = bench "seed" $ nf (seed mnem) mempty where
     23   mnem = "hope simple bubble suggest elbow correct limb hole gloom nasty fringe dolphin finger demand situate unlock junior autumn"
     24