summaryrefslogtreecommitdiff
path: root/lib/KeyRing/BuildKeyDB.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/KeyRing/BuildKeyDB.hs')
-rw-r--r--lib/KeyRing/BuildKeyDB.hs4
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
35import qualified Data.Map as Map 35import qualified Data.Map as Map
36import Data.Maybe 36import Data.Maybe
37import Data.OpenPGP 37import Data.OpenPGP
38import Data.OpenPGP.Util (GenerateKeyParams (..), fingerprint, generateKey, pgpSign, verify) 38import Data.OpenPGP.Util (Fingerprint, GenerateKeyParams (..), fingerprint, generateKey, pgpSign, verify)
39 39
40 40
41import Data.Time.Clock (UTCTime) 41import 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.
411parseSpec :: String -> String -> (KeySpec,Maybe String) 411parseSpec :: Fingerprint -> String -> (KeySpec,Maybe String)
412parseSpec wkgrip spec = 412parseSpec wkgrip spec =
413 if not slashed 413 if not slashed
414 then 414 then