Commit 7a5442f3 authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Make sure some TyCons always vectorise to themselves

parent 8b3ebc41
......@@ -179,7 +179,11 @@ initBuiltins
}
initBuiltinTyCons :: Builtins -> [(Name, TyCon)]
initBuiltinTyCons bi = [(tyConName funTyCon, closureTyCon bi)]
initBuiltinTyCons bi = (tyConName funTyCon, closureTyCon bi)
: [(tyConName tc, tc) | tc <- defaultTyCons]
defaultTyCons :: [TyCon]
defaultTyCons = [intTyCon]
initBuiltinDicts :: [(Name, Module, FastString)] -> DsM [(Name, Var)]
initBuiltinDicts ps
......
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