From b57248ba0189f9d91be08e02fc8e23dd29a99687 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Thu, 14 Apr 2016 22:34:28 -0400
Subject: Import DNS keys.

---
 kiki.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'kiki.hs')

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 = []
-- 
cgit v1.2.3