Преглед на файлове

[display] fix exhaustion

Simon Krajewski преди 7 години
родител
ревизия
6c81fed6f3
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  1. 2 1
      src/compiler/main.ml

+ 2 - 1
src/compiler/main.ml

@@ -1005,7 +1005,8 @@ with
 			| CRUsing
 			| CRNew
 			| CRPattern _
-			| CRTypeRelation ->
+			| CRTypeRelation
+			| CRTypeDecl ->
 				DisplayOutput.print_toplevel fields
 			| CRField _
 			| CRStructureField