summaryrefslogtreecommitdiff
path: root/kiki.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2016-04-29 02:44:09 -0400
committerjoe <joe@jerkface.net>2016-04-29 02:44:09 -0400
commitabbf0afd42fd4c9bececcd7d28b659af1a7b43c4 (patch)
tree06a54e67b03c70766e4174426794dab3002b5dff /kiki.hs
parent3ab1e1e46fb158d92dbb73c83b6ead6ddb67dc26 (diff)
Fixed per-file autosign.
Diffstat (limited to 'kiki.hs')
-rw-r--r--kiki.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/kiki.hs b/kiki.hs
index 2cdade6..325fc7f 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1338,7 +1338,8 @@ kiki "merge" args = do
1338 Just spec -> KF_Match spec 1338 Just spec -> KF_Match spec
1339 Nothing 1339 Nothing
1340 | "signed" `elem` goods -> KF_Authentic 1340 | "signed" `elem` goods -> KF_Authentic
1341 | "subkeys" `elem` goods -> KF_Subkeys ) 1341 | "subkeys" `elem` goods -> KF_Subkeys
1342 | otherwise -> KF_All)
1342 where 1343 where
1343 ws = case groupBy (\_ c->c/=',') spec of 1344 ws = case groupBy (\_ c->c/=',') spec of
1344 w:xs -> w:map (drop 1) xs 1345 w:xs -> w:map (drop 1) xs