Nope, still have an infinite loop

This commit is contained in:
Georges Dubus 2018-02-01 18:04:51 +01:00
parent 9f88ac5442
commit 985cd9a32a
1 changed files with 1 additions and 1 deletions

View File

@ -86,7 +86,7 @@ buildArgument paramSpec arg = case paramSpec of
case arg of
Fix (NVSet env) -> do
rec
evaledArgs <- Map.traverseWithKey (go env envAndArgs) s
evaledArgs <- Map.traverseWithKey (\k v -> traceShow k $ go env envAndArgs k v) s
let envAndArgs = env `Map.union` evaledArgs
return evaledArgs
_ -> error "Unexpected function environment"