diff options
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 |