Import DNS keys.

1 files changed, 3 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index 6afcbed..c5572c6 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1051,7 +1051,9 @@ sync bExport bImport bSecret cmdarg args_raw = do
                     in if bExport
                         then (ArgFile path, StreamInfo { fill = KF_Match usage
                                                        , spill = KF_Match usage
-                                                       , typ = PEMFile
+                                                       , typ = if "dns-" `isPrefixOf` usage
+                                                                    then DNSPresentation
+                                                                    else PEMFile
                                                        , access = Sec
                                                        , initializer = cmd'
                                                        , transforms = []