Simplify and skip some unnecessary work

pine-vm · Sep 24, 2024 · 4b7c31e · 4b7c31e
1 parent 49ba4c8
commit 4b7c31e
Showing 1 changed file with 18 additions and 18 deletions.
diff --git a/implement/pine/ElmTime/compile-elm-program/src/ElmCompiler.elm b/implement/pine/ElmTime/compile-elm-program/src/ElmCompiler.elm
@@ -3445,25 +3445,25 @@ reportEmittedDeclarationsForErrorMsg emittedDeclarations =
         emittedDeclarations
 
 
-compileElmChoiceTypeTagConstructor : ( String, Int ) -> (List Expression -> Expression)
-compileElmChoiceTypeTagConstructor ( tagName, argumentsCount ) =
-    let
-        tagNameAsValue =
-            Pine.valueFromString tagName
-
-        ( _, genericContructorValue ) =
-            compileElmChoiceTypeTagConstructorValue ( tagName, argumentsCount )
-    in
-    \arguments ->
-        if List.length arguments == argumentsCount then
-            inlineElmSyntaxValueConstructor
-                tagNameAsValue
-                arguments
+compileElmChoiceTypeTagConstructor : ( String, Int ) -> List Expression -> Expression
+compileElmChoiceTypeTagConstructor ( tagName, argumentsCount ) arguments =
+    if List.length arguments == argumentsCount then
+        let
+            tagNameAsValue =
+                Pine.valueFromString tagName
+        in
+        inlineElmSyntaxValueConstructor
+            tagNameAsValue
+            arguments
 
-        else
-            applicableDeclarationFromConstructorExpression
-                (LiteralExpression genericContructorValue)
-                arguments
+    else
+        let
+            ( _, genericContructorValue ) =
+                compileElmChoiceTypeTagConstructorValue ( tagName, argumentsCount )
+        in
+        applicableDeclarationFromConstructorExpression
+            (LiteralExpression genericContructorValue)
+            arguments
 
 
 applicableDeclarationFromConstructorExpression : Expression -> (List Expression -> Expression)