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

Clean up

parent df62b50d
...@@ -14,6 +14,9 @@ import Outputable ...@@ -14,6 +14,9 @@ import Outputable
import Control.Monad ( liftM2 ) import Control.Monad ( liftM2 )
-- ----------------------------------------------------------------------------
-- Types
vectTyCon :: TyCon -> VM TyCon vectTyCon :: TyCon -> VM TyCon
vectTyCon tc vectTyCon tc
| isFunTyCon tc = builtin closureTyCon | isFunTyCon tc = builtin closureTyCon
......
...@@ -421,7 +421,3 @@ vectTyAppExpr :: CoreExpr -> CoreExprWithFVs -> [Type] -> VM (CoreExpr, CoreExpr ...@@ -421,7 +421,3 @@ vectTyAppExpr :: CoreExpr -> CoreExprWithFVs -> [Type] -> VM (CoreExpr, CoreExpr
vectTyAppExpr lc (_, AnnVar v) tys = vectPolyVar lc v tys vectTyAppExpr lc (_, AnnVar v) tys = vectPolyVar lc v tys
vectTyAppExpr lc e tys = pprPanic "vectTyAppExpr" (ppr $ deAnnotate e) vectTyAppExpr lc e tys = pprPanic "vectTyAppExpr" (ppr $ deAnnotate e)
-- ----------------------------------------------------------------------------
-- Types
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