Fix eval for demo

Author: supermario

extra/Lamdera.hs

@@ -554,7 +554,7 @@ hindent_ s = do
     Just _ -> do
       (exit, stdout, stderr) <-
         System.Process.readProcessWithExitCode "hindent" ["--line-length","150"] s
-        `catchError` (\err -> pure (error "no exit code on failure", s, "hindent failed on input"))
+        `catchError` (\err -> pure (System.Exit.ExitFailure 123, s, "hindent failed on input"))
 
       if exit /= System.Exit.ExitSuccess
         then

extra/Lamdera/CLI/Interpreter.hs

@@ -26,7 +26,7 @@ import qualified Lamdera.Evaluate
 -}
 run :: Args -> () -> IO ()
 run (Args file expressionName) () = do
-  root <- getProjectRootFor file
+  root <- getProjectRoot "Interpreter.run"
   debug_ "Starting interpreter..."
   Lamdera.Evaluate.exec root file expressionName
 

extra/Lamdera/Evaluate.hs

@@ -73,8 +73,10 @@ exec root path name = do
       let !force = show $ Lamdera.Evaluate.Optimized.run def Map.empty (Opt._g_nodes $ Opt.addLocalGraph objectsLocal graph)
       pure force
 
-    formatted <- hindent_ force
-    atomicPutStrLn $ T.unpack $ formatted
+    -- formatted <- hindent_ force
+    -- atomicPutStrLn $ T.unpack $ formatted
+
+    atomicPutStrLn force
 
 
     -- formatHaskellValue "canonical Test.Basic" canonical

test/scenario-interpreter/src/Test/Basic.elm

@@ -90,8 +90,9 @@ suite =
     , test "List.repeat 10M" <|
         -- Just a performance test
         notEquals (List.repeat 10000000 0) []
-    , test "folding with a plus" <|
-        equals (List.foldl (+) 0 [ 1, 2, 3 ]) 6
+
+    -- , test "folding with a plus" <|
+    --     equals (List.foldl (+) 0 [ 1, 2, 3 ]) 6
     , test "Custom type equality" <|
         equals Custom1 Custom1
     , test "Custom type inequality" <|