summaryrefslogtreecommitdiff
path: root/kiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'kiki.hs')
-rw-r--r--kiki.hs8
1 files changed, 0 insertions, 8 deletions
diff --git a/kiki.hs b/kiki.hs
index 5ad012a..19d8beb 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -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