Commit 71fee325 authored by benl's avatar benl
Browse files

vectoriser: export PDatas data constructors

parent a589d9d0
......@@ -209,7 +209,7 @@ vectTypeEnv tycons vectTypeDecls vectClassDecls
; pdata_tcs <- zipWith3M buildPDataTyCon orig_tcs vect_tcs reprs
; pdatas_tcs <- zipWith3M buildPDatasTyCon orig_tcs vect_tcs reprs
; let inst_tcs = repr_tcs ++ pdata_tcs
; let inst_tcs = repr_tcs ++ pdata_tcs ++ pdatas_tcs
fam_insts = map mkLocalFamInst inst_tcs
; updGEnv $ extendFamEnv fam_insts
......
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