Commit 350c4466 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Follow tuple datatype movements

parent 43e1c29d
......@@ -518,10 +518,11 @@ tupleTypeName n = mk_tup_name (n-1) TcClsName
mk_tup_name :: Int -> NameSpace -> Name
mk_tup_name n_commas space
= Name occ (NameG space (mkPkgName "base") tup_mod)
= Name occ (NameG space (mkPkgName "ghc-prim") tup_mod)
where
occ = mkOccName ('(' : replicate n_commas ',' ++ ")")
tup_mod = mkModName "Data.Tuple"
-- XXX Should it be GHC.Unit for 0 commas?
tup_mod = mkModName "GHC.Tuple"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment