Make result match more lazy.

smucclaw · Sep 23, 2024 · cf0cf76 · cf0cf76
1 parent c4c6fc5
commit cf0cf76
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/haskell/web-service/src/Backend/Simala.hs b/lib/haskell/web-service/src/Backend/Simala.hs
@@ -73,7 +73,7 @@ evaluator inputs outputVars decls = do
     Left err -> throwError $ InterpreterError $ "Failed to evaluate expression: " <> Simala.render err
     Right () -> do
       case evalTrace of
-        [(Right (VRecord outputs), trace)] -> do
+        ((Right (VRecord outputs), trace) : _) -> do
           outputsFn' <- traverse (\(k, v) -> fmap (k,) (simalaValToFnLiteral v)) outputs
           -- Only keep the fields in the output that were actually requested.
           -- If nothing was explicitly requested, we keep all outputs.