X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=contrib%2Frpc_examples%2Focdrpc.hs;fp=contrib%2Frpc_examples%2Focdrpc.hs;h=9a80cdd849f0eccbb2fc180b05ceb2be4fd1d6b1;hp=27fb1ae60085ac82600d174f6b251a6403b7572b;hb=6f87df80fe98c18c8cb0e2dfdffa074392d6f2d5;hpb=c8184bac20e328704067efb3ab63a96c9b541b89

diff --git a/contrib/rpc_examples/ocdrpc.hs b/contrib/rpc_examples/ocdrpc.hs
index 27fb1ae600..9a80cdd849 100644
--- a/contrib/rpc_examples/ocdrpc.hs
+++ b/contrib/rpc_examples/ocdrpc.hs
@@ -39,7 +39,7 @@ mdwParser = (manyTill anyChar (string ": ") *>
 
 ocdMdw :: (InputStream ByteString, OutputStream ByteString) -> Integer -> Integer -> IO [Integer]
 ocdMdw s start count = do
-  s <- ocdExec s $ "ocd_mdw " ++ show start ++ " " ++ show count
+  s <- ocdExec s $ "mdw " ++ show start ++ " " ++ show count
   case parseOnly mdwParser (pack s) of
     Right r -> return $ concat r