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

Get the PA dictionary for closures from the right module

parent 2ee66b7b
......@@ -47,7 +47,7 @@ import Control.Monad ( liftM, liftM2, zipWithM, mapAndUnzipM )
builtin_PAs :: [(Name, Module, FastString)]
builtin_PAs = [
mk closureTyConName FSLIT("dPA_Clo")
(closureTyConName, nDP_CLOSURE, FSLIT("dPA_Clo"))
, mk intTyConName FSLIT("dPA_Int")
]
++ tups
......
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