diff options
| -rw-r--r-- | contrib/rpc_examples/ocdrpc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/rpc_examples/ocdrpc.hs b/contrib/rpc_examples/ocdrpc.hs index 27fb1ae..9a80cdd 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 |