diff options
| author | Son Ho | 2022-02-23 22:17:20 +0100 |
|---|---|---|
| committer | Son Ho | 2022-02-23 22:17:20 +0100 |
| commit | 284a6042ca9d5d7bcbc19a10909156769443c9be (patch) | |
| tree | a709fd3e371e0b63683f130d59f932570367b237 /src/PureToExtract.ml | |
| parent | ddd0a57c73d455ec1b5c704e66af22d4a713f8bb (diff) | |
Add the `State` assumed type in Pure.ml
Diffstat (limited to '')
| -rw-r--r-- | src/PureToExtract.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/PureToExtract.ml b/src/PureToExtract.ml index 42a4c589..21212cd0 100644 --- a/src/PureToExtract.ml +++ b/src/PureToExtract.ml @@ -369,6 +369,7 @@ let id_to_string (id : id) (ctx : extraction_ctx) : string = let variant_name = match id with | Tuple -> failwith "Unreachable" + | Assumed State -> failwith "Unreachable" | Assumed Result -> if variant_id = result_return_id then "@result::Return" else if variant_id = result_fail_id then "@result::Fail" @@ -391,7 +392,7 @@ let id_to_string (id : id) (ctx : extraction_ctx) : string = let field_name = match id with | Tuple -> failwith "Unreachable" - | Assumed (Result | Option) -> failwith "Unreachable" + | Assumed (State | Result | Option) -> failwith "Unreachable" | Assumed Vec -> (* We can't directly have access to the fields of a vector *) failwith "Unreachable" |