summaryrefslogtreecommitdiff
path: root/kiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'kiki.hs')
-rw-r--r--kiki.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/kiki.hs b/kiki.hs
index d695afc..ff21529 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -816,11 +816,13 @@ sync bExport bImport bSecret cmdarg args_raw = do
816 in if bExport 816 in if bExport
817 then (ArgFile path, StreamInfo { fill = KF_Match usage 817 then (ArgFile path, StreamInfo { fill = KF_Match usage
818 , spill = KF_Match usage 818 , spill = KF_Match usage
819 , typ = PEMFile usage 819 , typ = PEMFile
820 , access = Sec 820 , access = Sec
821 , initializer = cmd' }) 821 , initializer = cmd' })
822 else if isNothing cmd' 822 else if isNothing cmd'
823 then (ArgFile path, buildStreamInfo KF_None (PEMFile usage)) 823 then ( ArgFile path
824 , (buildStreamInfo KF_None PEMFile)
825 { spill = KF_Match usage })
824 else error "Unexpected PEM file initializer." 826 else error "Unexpected PEM file initializer."
825 walts = map (\fname -> ( ArgFile fname 827 walts = map (\fname -> ( ArgFile fname
826 , (buildStreamInfo reftyp WalletFile) { access = Sec })) 828 , (buildStreamInfo reftyp WalletFile) { access = Sec }))
@@ -863,7 +865,6 @@ sync bExport bImport bSecret cmdarg args_raw = do
863 ++ if bSecret then pems else [] 865 ++ if bSecret then pems else []
864 ++ if bSecret then walts else [] 866 ++ if bSecret then walts else []
865 ++ hosts 867 ++ hosts
866 , kImports = Map.fromList [ ( HomePub, importStyle ) ]
867 , kManip = maybe noManip (const doAutosign) $ Map.lookup "--autosign" margs 868 , kManip = maybe noManip (const doAutosign) $ Map.lookup "--autosign" margs
868 , homeSpec = homespec 869 , homeSpec = homespec
869 } 870 }
@@ -966,7 +967,6 @@ kiki "show" args = do
966 ++ pems 967 ++ pems
967 ++ walts 968 ++ walts
968 ++ hosts 969 ++ hosts
969 , kImports = Map.empty
970 , kManip = noManip 970 , kManip = noManip
971 , homeSpec = homespec 971 , homeSpec = homespec
972 } 972 }