diff options
author | tomsmeding <tom.smeding@gmail.com> | 2017-09-02 15:46:42 +0200 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2017-09-02 15:51:07 +0200 |
commit | 45e9991a1f83974c3459037f4791d865f5b342f1 (patch) | |
tree | 0ca233c3e9a8c8e38472ea0b6bc8b115e39c9c86 /Intermediate.hs | |
parent | 35b17357b5b55e73c6bbc59e7dae094412b7b02a (diff) |
Proper struct assignment and optimisations
Diffstat (limited to 'Intermediate.hs')
-rw-r--r-- | Intermediate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Intermediate.hs b/Intermediate.hs index dde941d..d6ad1cd 100644 --- a/Intermediate.hs +++ b/Intermediate.hs @@ -92,7 +92,7 @@ instance Pretty IRProgram where instance Pretty IRFunc where prettyI i (IRFunc mt n al bbs sid) = "irfunc" ++ maybe "" ((' ' :) . prettyI i) mt ++ " " ++ n ++ "(" ++ - intercalate "," + intercalate ", " (map (\(at,an) -> prettyI i at ++ " " ++ an) al) ++ ")\n" ++ indent i ++ intercalate ("\n" ++ indent i) (map (prettyI i) sorted) |