diff options
author | joe <joe@jerkface.net> | 2016-04-29 02:44:09 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2016-04-29 02:44:09 -0400 |
commit | abbf0afd42fd4c9bececcd7d28b659af1a7b43c4 (patch) | |
tree | 06a54e67b03c70766e4174426794dab3002b5dff /kiki.hs | |
parent | 3ab1e1e46fb158d92dbb73c83b6ead6ddb67dc26 (diff) |
Fixed per-file autosign.
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |