diff options
Diffstat (limited to 'src/PureToExtract.ml')
-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" |