cosmetics, haddock.

1 files changed, 4 insertions, 4 deletions

diff --git a/kiki.hs b/kiki.hs
index b5f5191..5ad012a 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -760,7 +760,7 @@ sync bExport bImport bSecret cmdarg args_raw = do
                                                , access = AutoAccess
                                                , initializer = Nothing }
         kikiOp = KeyRingOperation
-            { kFiles = Map.fromList $
+            { opFiles = Map.fromList $
                 [ ( HomeSec, buildStreamInfo (if bSecret && bImport then KF_All
                                                                     else KF_None)
                                              (KeyRingFile passfd) )
@@ -773,7 +773,7 @@ sync bExport bImport bSecret cmdarg args_raw = do
                 ++ if bSecret then walts else []
                 ++ hosts
             , kManip = maybe noManip (const doAutosign) $ Map.lookup "--autosign" margs
-            , homeSpec = homespec
+            , opHome = homespec
             }
 
     (\f -> maybe f (const $ kiki_usage bSecret cmdarg) $ Map.lookup "--help" margs) $ do
@@ -866,7 +866,7 @@ kiki "show" args = do
                                 , access = AutoAccess
                                 }
         kikiOp = KeyRingOperation
-            { kFiles = Map.fromList $
+            { opFiles = Map.fromList $
                 [ ( HomeSec, streaminfo { access = Sec })
                 , ( HomePub, streaminfo { access = Pub })
                 ]
@@ -875,7 +875,7 @@ kiki "show" args = do
                 ++ walts 
                 ++ hosts
             , kManip = noManip 
-            , homeSpec = homespec
+            , opHome = homespec
             }
 
     (\f -> maybe f (const $ kiki_usage False "show") $ Map.lookup "--help" margs) $ do