fixed write command

Orasund · May 6, 2024 · 31f2532 · 31f2532
1 parent 4e7290a
commit 31f2532
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/database/bin/main.ml b/database/bin/main.ml
@@ -10,7 +10,7 @@ let write =
   Term.(
     const Database.Operations.write 
     $ Arg.(value (pos 0 string "" (Arg.info ["key"])) )
-    $ Arg.(value (pos 0 string "" (Arg.info ["value"])) )
+    $ Arg.(value (pos 1 string "" (Arg.info ["value"])) )
   )
 
 let cmd = Cmd.group (Cmd.info "database")

diff --git a/database/db b/database/db