Standalone snarkwork process to submit proofs via graphql

[deepthiskumar]

Explain your changes:

• standalone snark worker process accepts work spec in json format, accepts fee and prover public key
• Submits work to a mina node if graphql uri is passed as an argument

Explain how you tested your changes:

• ran the process with a snark work spec from devnet and sent the generated work to a devnet node

Part of solution described in #16214 (comment)

Checklist:

• Dependency versions are unchanged
  • Notify Velocity team if dependencies must change in CI
• Modified the current draft of release notes with details on what is completed or incomplete within this project
• Document code purpose, how to use it
  • Mention expected invariants, implicit constraints
• Tests were added for the new behavior
  • Document test purpose, significance of failures
  • Test names should reflect their purpose
• All tests pass (CI will check this if you didn't)
• Serialized types are in stable-versioned modules
• Does this close issues? List them

• Closes #0000

[anne-laure-s]

Suggested change

	|> Deferred.Or_error.map ~f:(function
	| `One (proof1, _) ->
	{ Snark_work_lib.Work.Result_without_metrics.proofs = `One proof1
	; statements =
	One_or_two.map spec ~f:Snark_work_lib.Work.Single.Spec.statement
	; prover = public_key
	; fee
	}
	| `Two ((proof1, _), (proof2, _)) ->
	{ Snark_work_lib.Work.Result_without_metrics.proofs =
	`Two (proof1, proof2)
	; statements =
	One_or_two.map spec ~f:Snark_work_lib.Work.Single.Spec.statement
	; prover = public_key
	; fee
	} )
	|> Deferred.Or_error.map ~f:(fun proofs_and_time ->
	{ Snark_work_lib.Work.Result_without_metrics.proofs =
	One_or_two.map proofs_and_time ~f:fst
	; statements =
	One_or_two.map spec ~f:Snark_work_lib.Work.Single.Spec.statement
	; prover = public_key
	; fee
	} )

[anne-laure-s]

Suggested change

	, () ) ->
	, _ ) ->

It looks like this change triggers an error when building:

File "src/lib/mina_graphql/mina_graphql.ml", line 814, characters 14-16:
814 |             , () ) ->
                    ^^
Error: This pattern matches values of type unit
       but a pattern was expected which matches values of type
         Network_pool.Snark_pool.Resource_pool.Diff.rejected