keysafe.hs


1
2
3
4
5
6
7
8

module Main where

{-# LANGUAGE OverloadedStrings #-}

import Types
import Encryption

main = print $ genKeyEncryptionKey (Password "foo") (Name "bar")