use maybeLayoutUntilIgnored in a few more places

stil4m · Aug 30, 2024 · ee75e57 · ee75e57
1 parent 84533d3
commit ee75e57
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/src/Elm/Parser/Expression.elm b/src/Elm/Parser/Expression.elm
@@ -569,8 +569,8 @@ letDestructuringDeclaration =
             }
         )
         Patterns.patternNotDirectlyComposing
+        (Layout.maybeLayoutUntilIgnored ParserFast.symbol "=")
         Layout.maybeLayout
-        (ParserFast.symbolFollowedBy "=" Layout.maybeLayout)
         expression
 
 

diff --git a/src/Elm/Parser/Modules.elm b/src/Elm/Parser/Modules.elm
@@ -105,8 +105,10 @@ effectModuleDefinition =
                     )
             }
         )
-        (ParserFast.keywordFollowedBy "effect" Layout.maybeLayout)
-        (ParserFast.keywordFollowedBy "module" Layout.maybeLayout)
+        (ParserFast.keywordFollowedBy "effect"
+            (Layout.maybeLayoutUntilIgnored ParserFast.keyword "module")
+        )
+        Layout.maybeLayout
         moduleName
         Layout.maybeLayout
         effectWhereClauses
@@ -151,8 +153,10 @@ portModuleDefinition =
                     (PortModule { moduleName = moduleName, exposingList = exposingList.syntax })
             }
         )
-        (ParserFast.keywordFollowedBy "port" Layout.maybeLayout)
-        (ParserFast.keywordFollowedBy "module" Layout.maybeLayout)
+        (ParserFast.keywordFollowedBy "port"
+            (Layout.maybeLayoutUntilIgnored ParserFast.keyword "module")
+        )
+        Layout.maybeLayout
         moduleName
         Layout.maybeLayout
         exposeDefinition