{-# LANGUAGE OverloadedStrings #-}

module Main where

import Types
import Tunables
import Encryption
import Shard

main :: IO ()
main = do
	kek <- genKeyEncryptionKey tunables name password
	let esk = encrypt kek secretkey
	let sis = shardIdents tunables name keyid
	shards <- genShards esk tunables
	print $ zip (getIdents sis) shards
  where
	password = Password "foo"
	name = Name "bar"
	tunables = testModeTunables -- defaultTunables
	keyid = KeyId gpgKey "foobar"
	secretkey = SecretKey "this is a gpg private key"