prepare for autosign support & nicer names

1 files changed, 1 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index 2968067..098ed98 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1342,7 +1342,7 @@ main = do
                               return $ \rt kd -> Just ()
                 importifauth_f = do Map.lookup "--import-if-authentic" margs
                                     return guardAuthentic
-        kikiOp = KeyRingData
+        kikiOp = KeyRingOperation
             { kFiles = Map.fromList $
                 [ ( HomeSec, (MutableRef Nothing, KeyRingFile passfd)  )
                 , ( HomePub, (MutableRef Nothing, KeyRingFile Nothing) )