summaryrefslogtreecommitdiff
path: root/kiki.hs
diff options
context:
space:
mode:
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