Improve the wording on the invalid field for pattern error
@@ -193,7 +193,7 @@ module Pattern = struct
| TCast(e1,None) ->
loop e1
| TField _ ->
- raise (Bad_pattern "Only inline or read-only (default, never) fields can be used as pattern")
+ raise (Bad_pattern "Only inline or read-only (default, never) fields can be used as a pattern")
| _ ->
raise Exit
in
@@ -1 +1 @@
-Main.hx:6: characters 17-27 : Only inline or read-only (default, never) fields can be used as pattern
+Main.hx:6: characters 17-27 : Only inline or read-only (default, never) fields can be used as a pattern