diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -739,14 +739,6 @@ sync bExport bImport bSecret cmdarg args_raw = do | |||
739 | keyrings_ | 739 | keyrings_ |
740 | hosts = maybe [] (map decorate) $ Map.lookup "--hosts" margs | 740 | hosts = maybe [] (map decorate) $ Map.lookup "--hosts" margs |
741 | where decorate fname = (ArgFile fname, buildStreamInfo reftyp Hosts) | 741 | where decorate fname = (ArgFile fname, buildStreamInfo reftyp Hosts) |
742 | importStyle = maybe (\_ _ -> subkeysOnly) | ||
743 | (\f rt kd -> f rt kd >> importPublic) | ||
744 | $ mplus import_f importifauth_f | ||
745 | where | ||
746 | import_f = do Map.lookup "--import" margs | ||
747 | return $ \rt kd -> Just () | ||
748 | importifauth_f = do Map.lookup "--import-if-authentic" margs | ||
749 | return guardAuthentic | ||
750 | pubfill = maybe KF_Subkeys id | 742 | pubfill = maybe KF_Subkeys id |
751 | $ mplus import_f importifauth_f | 743 | $ mplus import_f importifauth_f |
752 | where | 744 | where |