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

Add built-in PA dictionary for closures

parent f03cf1b1
......@@ -54,7 +54,8 @@ mkNDPVarFS fs = mkRdrQual nDP_BUILTIN (mkVarOccFS fs)
builtin_PAs :: [(Name, RdrName)]
builtin_PAs = [
mk intTyConName FSLIT("dPA_Int")
mk closureTyConName FSLIT("dPA_Clo")
, mk intTyConName FSLIT("dPA_Int")
]
++ tups
where
......
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