diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-08-07 00:29:18 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-08-07 00:29:18 -0400 |
commit | 7890e78cc6e98fed07bc2ad471b527a2f1b1494f (patch) | |
tree | 7f61f981730f550475aa4235d04aac822077a6bc /Encryption.hs | |
parent | a1de1fb890773d5909e9214496890d4dd0972820 (diff) | |
download | keysafe-7890e78cc6e98fed07bc2ad471b527a2f1b1494f.tar.gz |
improve types
Diffstat (limited to 'Encryption.hs')
-rw-r--r-- | Encryption.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Encryption.hs b/Encryption.hs index 98afdfd..23da288 100644 --- a/Encryption.hs +++ b/Encryption.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE OverloadedStrings, MultiParamTypeClasses #-} module Encryption where @@ -19,6 +19,9 @@ data KeyEncryptionKey = KeyEncryptionKey (Cost DecryptionOp) (CostCalc BruteForceOp UnknownPassword) +instance Bruteforceable KeyEncryptionKey UnknownPassword where + getBruteCostCalc (KeyEncryptionKey _ _ c) = c + -- | The ExpensiveHash of the Password is combined with a -- RandomObstacle to form the AES key. Combination method is logical OR. genKeyEncryptionKey :: Tunables -> KeyIdent -> Password -> KeyEncryptionKey |