Mainly, rename LiteralTy to LitTy
[ghc.git] / compiler / codeGen / StgCmmClosure.hs
index d40ff9e..7789ae8 100644 (file)
@@ -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