diff options
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 3 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index fd27684732..d8fd07fead 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -1107,5 +1107,6 @@ getTyDescription ty getTyLitDescription :: TyLit -> String getTyLitDescription l = case l of - NumberTyLit n -> show n + NumTyLit n -> show n + StrTyLit n -> show n \end{code} diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index 7789ae865b..d4ba62c6ca 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -873,7 +873,8 @@ getTyDescription ty getTyLitDescription :: TyLit -> String getTyLitDescription l = case l of - NumberTyLit n -> show n + NumTyLit n -> show n + StrTyLit n -> show n -------------------------------------- -- CmmInfoTable-related things |