New snapshots

Author: gamebox

src/snapshots/001.txt

@@ -15,7 +15,8 @@ module [foo]
 foo = "one"
 ~~~PARSE
 (file
-    (header 'foo')
+    (header
+        (exposed_item (lower_ident 'foo')))
     (decl
         (ident 'foo')
         (string 'one')))

src/snapshots/003.txt

@@ -14,7 +14,8 @@ expect 1 == 1
 return 2
 ~~~PARSE
 (file
-    (header 'decoder')
+    (header
+        (exposed_item (lower_ident 'decoder')))
     (import
         'json'
         '.Json'

src/snapshots/add_var_with_spaces.txt

@@ -10,7 +10,8 @@ module [add2]
 add2 = x + 2
 ~~~PARSE
 (file
-    (header 'add2')
+    (header
+        (exposed_item (lower_ident 'add2')))
     (decl
         (ident 'add2')
         (binop

src/snapshots/if_then_else.txt

@@ -14,7 +14,8 @@ module [foo]
 foo = if true A else B
 ~~~PARSE
 (file
-    (header 'foo')
+    (header
+        (exposed_item (lower_ident 'foo')))
     (decl
         (ident 'foo')
         (if_then_else

src/snapshots/some_folder/002.txt

@@ -8,7 +8,9 @@ foo = "one"
 bar = "two"
 ~~~PARSE
 (file
-    (header 'foo' 'bar')
+    (header
+        (exposed_item (lower_ident 'foo'))
+        (exposed_item (lower_ident 'bar')))
     (decl
         (ident 'foo')
         (string 'one'))

src/snapshots/type_declarations.txt

@@ -15,13 +15,13 @@ SomeFunc a : Maybe(a), a -> Maybe(a)
 ~~~PARSE
 (file
     (header
-        'Map'
-        'Foo'
-        'Some'
-        'Maybe'
-        'SomeFunc'
-        'add_one'
-        'main!')
+        (exposed_item (upper_ident 'Map'))
+        (exposed_item (upper_ident 'Foo'))
+        (exposed_item (upper_ident 'Some'))
+        (exposed_item (upper_ident 'Maybe'))
+        (exposed_item (upper_ident 'SomeFunc'))
+        (exposed_item (lower_ident 'add_one'))
+        (exposed_item (lower_ident 'main!')))
     (type_decl
         (header
             'Map'