Commit bcd39a65 authored by John van Groningen's avatar John van Groningen
Browse files

print "(let ...) or #" for Let and "update of record" for RecordUpdate

in error messages
parent 3f189875
......@@ -862,6 +862,10 @@ where
= file <<< bv
show_expression file (MatchExpr _ expr)
= file <<< "match expression"
show_expression file (Let _)
= file <<< "(let ... ) or #"
show_expression file (RecordUpdate _ _ _)
= file <<< "update of record"
show_expression file _
= file
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment