diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-01-13 17:31:50 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-01-13 17:31:50 +0000 |
| commit | 23075169a7d85073cadb211835854436e533f046 (patch) | |
| tree | d55f9b6265c8033fae37f8e0d6fccb7e066a31ba /compiler/codeGen | |
| parent | 85926ae6c63a62e4f23423f220588875c8f1ab45 (diff) | |
| download | haskell-23075169a7d85073cadb211835854436e533f046.tar.gz | |
Mainly, rename LiteralTy to LitTy
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 2 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index 2cd0cf6434..fd27684732 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -1097,7 +1097,7 @@ getTyDescription ty FunTy _ res -> '-' : '>' : fun_result res TyConApp tycon _ -> getOccString tycon ForAllTy _ ty -> getTyDescription ty - LiteralTy n -> getTyLitDescription n + LitTy n -> getTyLitDescription n } where fun_result (FunTy _ res) = '>' : fun_result res diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index d40ff9e1e5..7789ae865b 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -864,7 +864,7 @@ getTyDescription ty FunTy _ res -> '-' : '>' : fun_result res TyConApp tycon _ -> getOccString tycon ForAllTy _ ty -> getTyDescription ty - LiteralTy n -> getTyLitDescription n + LitTy n -> getTyLitDescription n } where fun_result (FunTy _ res) = '>' : fun_result res |