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/coreSyn/TrieMap.lhs | |
| parent | 85926ae6c63a62e4f23423f220588875c8f1ab45 (diff) | |
| download | haskell-23075169a7d85073cadb211835854436e533f046.tar.gz | |
Mainly, rename LiteralTy to LitTy
Diffstat (limited to 'compiler/coreSyn/TrieMap.lhs')
| -rw-r--r-- | compiler/coreSyn/TrieMap.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/coreSyn/TrieMap.lhs b/compiler/coreSyn/TrieMap.lhs index e6779b7850..11a30a54c9 100644 --- a/compiler/coreSyn/TrieMap.lhs +++ b/compiler/coreSyn/TrieMap.lhs @@ -523,7 +523,7 @@ lkT env ty m go (AppTy t1 t2) = tm_app >.> lkT env t1 >=> lkT env t2 go (FunTy t1 t2) = tm_fun >.> lkT env t1 >=> lkT env t2 go (TyConApp tc tys) = tm_tc_app >.> lkNamed tc >=> lkList (lkT env) tys - go (LiteralTy l) = tm_tylit >.> lkTyLit l + go (LitTy l) = tm_tylit >.> lkTyLit l go (ForAllTy tv ty) = tm_forall >.> lkT (extendCME env tv) ty >=> lkBndr env tv ----------------- @@ -539,8 +539,7 @@ xtT env (ForAllTy tv ty) f m = m { tm_forall = tm_forall m |> xtT (extendCME e |>> xtBndr env tv f } xtT env (TyConApp tc tys) f m = m { tm_tc_app = tm_tc_app m |> xtNamed tc |>> xtList (xtT env) tys f } - -xtT _ (LiteralTy l) f m = m { tm_tylit = tm_tylit m |> xtTyLit l f } +xtT _ (LitTy l) f m = m { tm_tylit = tm_tylit m |> xtTyLit l f } fdT :: (a -> b -> b) -> TypeMap a -> b -> b fdT _ EmptyTM = \z -> z |