Fix compiler bug affecting Elm Parser module declarations

This commit fixes a bug in the Elm compiler that resulted in invalid emission for a subset of module-level declarations with zero arguments. For example, this defective branch was taken when compiling declarations applying `Parser.Advanced.oneOf` as the root expression.

implement/pine/ElmTime/compile-elm-program/src/ElmCompiler.elm

@@ -3214,7 +3214,7 @@ emitRecursionDomain { exposedDeclarationsNames, allModuleDeclarations, importedF
                         exposedDeclarationsResult : Result String (List ( String, Pine.Value ))
                         exposedDeclarationsResult =
                             List.foldr
-                                (\( declName, ( _, ( parameterCount, emittedValue ) ) ) aggregateResult ->
+                                (\( declName, ( declExpression, ( parameterCount, emittedValue ) ) ) aggregateResult ->
                                     if List.member declName recursionDomainExposedNames then
                                         case aggregateResult of
                                             Err err ->
@@ -3253,10 +3253,24 @@ emitRecursionDomain { exposedDeclarationsNames, allModuleDeclarations, importedF
 
                                                                     Nothing ->
                                                                         Pine.LiteralExpression emittedValue
+
+                                                            innerIsJustReference : Bool
+                                                            innerIsJustReference =
+                                                                case declExpression of
+                                                                    FirCompiler.FunctionExpression [] innerFuncExpr ->
+                                                                        case innerFuncExpr of
+                                                                            FirCompiler.ReferenceExpression _ _ ->
+                                                                                True
+
+                                                                            _ ->
+                                                                                False
+
+                                                                    _ ->
+                                                                        False
                                                         in
                                                         case
                                                             evaluateAsIndependentExpression
-                                                                (if parameterCount < 1 then
+                                                                (if parameterCount == 0 && innerIsJustReference then
                                                                     FirCompiler.emitWrapperForPartialApplicationZero
                                                                         { getFunctionInnerExpression = getFunctionInnerExpression
                                                                         , getEnvFunctionsExpression = envFunctionsExpression

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/context-app/.gitignore

@@ -0,0 +1 @@
+/elm-stuff/

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/context-app/elm.json

@@ -0,0 +1,25 @@
+{
+    "type": "application",
+    "source-directories": [
+        "src"
+    ],
+    "elm-version": "0.19.1",
+    "dependencies": {
+        "direct": {
+            "elm/browser": "1.0.2",
+            "elm/core": "1.0.5",
+            "elm/html": "1.0.0",
+            "elm/parser": "1.1.0"
+        },
+        "indirect": {
+            "elm/json": "1.1.3",
+            "elm/time": "1.0.0",
+            "elm/url": "1.0.0",
+            "elm/virtual-dom": "1.0.3"
+        }
+    },
+    "test-dependencies": {
+        "direct": {},
+        "indirect": {}
+    }
+}

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/context-app/src/CompositeParser.elm

@@ -0,0 +1,15 @@
+module CompositeParser exposing (..)
+
+import Parser.Advanced exposing ((|.), (|=))
+
+
+negateToken : Parser.Advanced.Token ()
+negateToken =
+    Parser.Advanced.Token "-" ()
+
+
+oneOf_only_int : Parser.Advanced.Parser () () Int
+oneOf_only_int =
+    Parser.Advanced.oneOf
+        [ Parser.Advanced.int () ()
+        ]

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/110/submission.txt

@@ -1 +1 @@
-Parser.Advanced.run (Parser.succeed "test") "unrelated"
+Parser.Advanced.run (Parser.Advanced.succeed "test") "unrelated"

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/331/expected-value.txt

@@ -0,0 +1 @@
+Ok []

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/331/submission.txt

@@ -0,0 +1,3 @@
+Parser.Advanced.run
+    (Parser.Advanced.symbol CompositeParser.negateToken)
+    "-"

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/341/expected-value.txt

@@ -0,0 +1 @@
+Ok 1

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/341/submission.txt

@@ -0,0 +1 @@
+Parser.Advanced.run (Parser.Advanced.oneOf [ Parser.Advanced.int () () ]) "1"

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/342/submission.txt

@@ -0,0 +1 @@
+testOneOf = Parser.Advanced.oneOf [ Parser.Advanced.int () () ]

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/343/expected-value.txt

@@ -0,0 +1 @@
+Ok 13

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/343/submission.txt

@@ -0,0 +1 @@
+Parser.Advanced.run  testOneOf  "13"

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/344/expected-value.txt

@@ -0,0 +1 @@
+Ok 17

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/344/submission.txt

@@ -0,0 +1 @@
+Parser.Advanced.run  CompositeParser.oneOf_only_int  "17"

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/345/expected-value.txt

@@ -0,0 +1 @@
+Ok 19

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser-advanced/steps/345/submission.txt

@@ -0,0 +1 @@
+Parser.Advanced.run  (CompositeParser.oneOf_only_int_with_param_for_problem ())  "19"

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser/steps/310/expected-value.txt

@@ -0,0 +1 @@
+Ok 0

implement/test-and-train/elm-interactive-scenarios-kernel/elm-kernel-parser/steps/310/submission.txt

@@ -0,0 +1 @@
+Parser.run Parser.int "0"