Reduce compilation expenses in emitClosureExpressions

Refactor to avoid duplicate processing in the 'emitClosureExpressions' function we use to compile the set of declarations in an Elm module.
pine-vm · Jul 14, 2023 · 921c099 · 921c099
1 parent 6c24b73
commit 921c099
Showing 1 changed file with 15 additions and 14 deletions.
diff --git a/implement/elm-time/ElmTime/compile-elm-program/src/ElmInteractive.elm b/implement/elm-time/ElmTime/compile-elm-program/src/ElmInteractive.elm
@@ -2295,20 +2295,19 @@ emitClosureExpression :
     -> List ( String, Expression )
     -> Expression
     -> Result String Pine.Expression
-emitClosureExpression stackBefore environmentDeclarations expressionInClosure =
+emitClosureExpression stackBefore environmentDeclarations =
     emitExpressionInDeclarationBlock
         stackBefore
         environmentDeclarations
-        expressionInClosure
-        |> Result.map .expr
+        >> Result.map .expr
 
 
 emitExpressionInDeclarationBlock :
     EmitStack
     -> List ( String, Expression )
     -> Expression
     -> Result String { expr : Pine.Expression, closureArgumentPine : Maybe Pine.Expression }
-emitExpressionInDeclarationBlock stack originalEnvironmentDeclarations originalMainExpression =
+emitExpressionInDeclarationBlock stack originalEnvironmentDeclarations =
     let
         environmentDeclarations =
             originalEnvironmentDeclarations
@@ -2319,17 +2318,19 @@ emitExpressionInDeclarationBlock stack originalEnvironmentDeclarations originalM
                             originalEnvironmentDeclarations
                         )
                     )
-
-        mainExpression =
-            inlineApplicationsOfEnvironmentDeclarations
-                stack
-                environmentDeclarations
-                originalMainExpression
     in
-    emitExpressionInDeclarationBlockLessInline
-        stack
-        environmentDeclarations
-        mainExpression
+    \originalMainExpression ->
+        let
+            mainExpression =
+                inlineApplicationsOfEnvironmentDeclarations
+                    stack
+                    environmentDeclarations
+                    originalMainExpression
+        in
+        emitExpressionInDeclarationBlockLessInline
+            stack
+            environmentDeclarations
+            mainExpression
 
 
 emitExpressionInDeclarationBlockLessInline :