diff options
Diffstat (limited to 'app/Compiler.hs')
| -rw-r--r-- | app/Compiler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Compiler.hs b/app/Compiler.hs index 6ea6cbc..efa641c 100644 --- a/app/Compiler.hs +++ b/app/Compiler.hs @@ -48,7 +48,7 @@ compileGoals andop cut = go' go x = [compileGoal x] compileGoal :: PrlgInt -> Code -compileGoal = compileArg +compileGoal = compileArg . struct2goal compileArg :: PrlgInt -> Code compileArg (CallI s args) = U (Struct s) : concatMap compileArg args |