diff options
| author | Son Ho | 2022-02-09 02:02:50 +0100 |
|---|---|---|
| committer | Son Ho | 2022-02-09 02:02:50 +0100 |
| commit | b85a44d557c7c03e0052b03a824612a99409ef03 (patch) | |
| tree | 757c2fc09463425d762b1ea8298eb7b281cf3f8b /src/PureMicroPasses.ml | |
| parent | 85c4f981d7c7328810b8b76b00c617803e2e0f17 (diff) | |
Update a comment
Diffstat (limited to 'src/PureMicroPasses.ml')
| -rw-r--r-- | src/PureMicroPasses.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/PureMicroPasses.ml b/src/PureMicroPasses.ml index 99598937..59871600 100644 --- a/src/PureMicroPasses.ml +++ b/src/PureMicroPasses.ml @@ -617,7 +617,9 @@ let filter_if_backward_with_no_outputs (def : fun_def) : fun_def option = if Option.is_some def.back_id && def.signature.outputs = [] then None else Some def -(** Add unit arguments (optionally) for functions with no arguments, and change their return type *) +(** Add unit arguments (optionally) to functions with no arguments, and + change their output type to use `result` + *) let to_monadic (add_unit_args : bool) (def : fun_def) : fun_def = (* Update the body *) let obj = |