From ee75e570cf16882f43438560e80e3cd183c5d651 Mon Sep 17 00:00:00 2001 From: lue-bird Date: Fri, 30 Aug 2024 11:43:23 +0200 Subject: [PATCH] use maybeLayoutUntilIgnored in a few more places --- src/Elm/Parser/Expression.elm | 2 +- src/Elm/Parser/Modules.elm | 12 ++++++++---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/src/Elm/Parser/Expression.elm b/src/Elm/Parser/Expression.elm index 1a4c5ad4..414d9f79 100644 --- 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 index 1d8c2c1c..997659cf 100644 --- 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