diff options
author | Andrew Cady <d@jerkface.net> | 2019-07-16 17:51:31 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2019-07-16 17:52:10 -0400 |
commit | 7a94f5103671011295f818bfcf30280423c44042 (patch) | |
tree | 118d6a1d76d74e09e6a2dbef8ef49b8390a116cd /lib/KeyRing/BuildKeyDB.hs | |
parent | f07d60d9c0ff8673a264e984c90bc478987ef873 (diff) |
use more Fingerprint WIP
Diffstat (limited to 'lib/KeyRing/BuildKeyDB.hs')
-rw-r--r-- | lib/KeyRing/BuildKeyDB.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs index 90f7292..461afa2 100644 --- a/lib/KeyRing/BuildKeyDB.hs +++ b/lib/KeyRing/BuildKeyDB.hs | |||
@@ -35,7 +35,7 @@ import Data.List | |||
35 | import qualified Data.Map as Map | 35 | import qualified Data.Map as Map |
36 | import Data.Maybe | 36 | import Data.Maybe |
37 | import Data.OpenPGP | 37 | import Data.OpenPGP |
38 | import Data.OpenPGP.Util (GenerateKeyParams (..), fingerprint, generateKey, pgpSign, verify) | 38 | import Data.OpenPGP.Util (Fingerprint, GenerateKeyParams (..), fingerprint, generateKey, pgpSign, verify) |
39 | 39 | ||
40 | 40 | ||
41 | import Data.Time.Clock (UTCTime) | 41 | import Data.Time.Clock (UTCTime) |
@@ -408,7 +408,7 @@ usageFromFilter _ = mzero | |||
408 | 408 | ||
409 | -- | Parse a key specification. | 409 | -- | Parse a key specification. |
410 | -- The first argument is a grip for the default working key. | 410 | -- The first argument is a grip for the default working key. |
411 | parseSpec :: String -> String -> (KeySpec,Maybe String) | 411 | parseSpec :: Fingerprint -> String -> (KeySpec,Maybe String) |
412 | parseSpec wkgrip spec = | 412 | parseSpec wkgrip spec = |
413 | if not slashed | 413 | if not slashed |
414 | then | 414 | then |