diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 | } |