Commit 3c67c9af authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

DataConIds need to be treated specially in VectInfo

parent 5dc73fdb
......@@ -513,7 +513,7 @@ tidyVectInfo (_, var_env) info@(VectInfo { vectInfoVar = vars
tidy_var_v = lookup_var var_v
, isExportedId tidy_var
, isExportedId tidy_var_v
, not $ isImplicitId var
, isDataConWorkId var || not (isImplicitId var)
]
tidy_scalarVars = mkVarSet [ lookup_var var
......
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