X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgConTbls.lhs;h=29a89a57f4c71ae8f1e2cf73dad85d6bc51e6291;hp=c35219edd10084652950bde2f3277a90a72cb810;hb=5cf27e8f1731c52fe63a5b9615f927484164c61b;hpb=68afb16743cafd5b7495771d359891c6dfc5a186 diff --git a/ghc/compiler/codeGen/CgConTbls.lhs b/ghc/compiler/codeGen/CgConTbls.lhs index c35219e..29a89a5 100644 --- a/ghc/compiler/codeGen/CgConTbls.lhs +++ b/ghc/compiler/codeGen/CgConTbls.lhs @@ -41,12 +41,12 @@ import Id ( dataConTag, dataConSig, GenId{-instance NamedThing-} ) import Name ( getLocalName ) +import PrelInfo ( maybeIntLikeTyCon ) import PrimRep ( getPrimRepSize, PrimRep(..) ) import TyCon ( tyConDataCons, mkSpecTyCon ) import Type ( typePrimRep ) import Util ( panic ) -maybeIntLikeTyCon = panic "CgConTbls.maybeIntLikeTyCon (ToDo)" mkSameSpecCon = panic "CgConTbls.mkSameSpecCon (ToDo)" \end{code}