From 3cbee1979f2925d67df366633b85ef7c55789c1d Mon Sep 17 00:00:00 2001
From: Victor Nakoryakov <nail.xx@gmail.com>
Date: Sun, 5 Mar 2023 16:49:02 +0100
Subject: [PATCH] test: fix modules test

Broken due to not rebasing #199 onto #197
---
 test/corpus/modules.txt | 46 ++++++++++++++++++++++-------------------
 1 file changed, 25 insertions(+), 21 deletions(-)

diff --git a/test/corpus/modules.txt b/test/corpus/modules.txt
index 6db5ecd..94c2ad8 100644
--- a/test/corpus/modules.txt
+++ b/test/corpus/modules.txt
@@ -226,29 +226,33 @@ module S = unpack(%extension(payload))
           (module_unpack
             (value_identifier))))))
   (module_declaration
-    (module_identifier)
-    (module_unpack
-      (value_identifier)
-      (module_type_annotation (module_identifier))))
-  (module_declaration
-    (module_identifier)
-    (module_unpack
-      (value_identifier)
-      (module_type_annotation
-        (module_type_constraint (module_identifier)
-          (constrain_type (type_identifier) (type_identifier))))))
+    (module_binding
+      (module_identifier)
+      (module_unpack
+        (value_identifier)
+        (module_type_annotation (module_identifier)))))
   (module_declaration
-    (module_identifier)
-    (module_unpack
-      (call_expression
-        (value_identifier_path (module_identifier) (value_identifier)) 
-        (arguments (value_identifier)))))
+    (module_binding
+      (module_identifier)
+      (module_unpack
+        (value_identifier)
+        (module_type_annotation
+          (module_type_constraint (module_identifier)
+          (constrain_type (type_identifier) (type_identifier)))))))
   (module_declaration
-    (module_identifier)
+    (module_binding
+      (module_identifier)
       (module_unpack
-        (extension_expression
-          (extension_identifier)
-          (expression_statement (value_identifier))))))
+        (call_expression
+          (value_identifier_path (module_identifier) (value_identifier)) 
+          (arguments (value_identifier))))))
+  (module_declaration
+    (module_binding
+      (module_identifier)
+        (module_unpack
+          (extension_expression
+            (extension_identifier)
+            (expression_statement (value_identifier)))))))
 
 
 ===========================================
@@ -275,7 +279,7 @@ module MyFunctor = (X: {type t}, Y: {type t}): {type tx; type ty} => {
             (module_identifier)
             (module_type_annotation (block (type_declaration (type_binding name: (type_identifier)))))))
         return_module_type: (module_type_annotation
-            (block 
+            (block
               (type_declaration
                 (type_binding name: (type_identifier)))
               (type_declaration