1 files changed, 2 insertions, 2 deletions

diff --git a/kiki.hs b/kiki.hs
index 842e697..e10c2a8 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1330,7 +1330,7 @@ kiki "merge" args = do
 
     doDelete :: String -> StreamInfo -> KeyRingOperation -> (StreamInfo,KeyRingOperation)
     doDelete fp flow op = ( flow
-                          , op { opTransforms = opTransforms op ++ [DeleteSubKey fp] } )
+                          , op { opTransforms = opTransforms op ++ [DeleteSubkeyByFingerprint fp] } )
 
     doAutosign :: Bool -> StreamInfo -> KeyRingOperation -> (StreamInfo,KeyRingOperation)
     doAutosign True flow op =
@@ -1568,7 +1568,7 @@ kiki "delete" args = do
                 ]
             , opPassphrases = do pfile <- maybeToList passfd
                                  return $ PassphraseSpec Nothing Nothing pfile
-            , opTransforms = map DeleteSubKey fps
+            , opTransforms = map DeleteSubkeyByFingerprint fps
             , opHome = homespec
             }
     KikiResult rt report <- runKeyRing kikiOp