X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FUtils%2FBase.hs;fp=compiler%2Fvectorise%2FVectorise%2FUtils%2FBase.hs;h=d41be1e87a77a1d669ec3822168c1d08e8968884;hb=1b381af863d64aaa0a4dd9c816170c58e6131a9e;hp=0ffaa60d9490a904332a039b511a7aa0efebda2f;hpb=c25b934ef544fa3eba0a9f9da41b363c470156cb;p=ghc-hetmet.git

diff --git a/compiler/vectorise/Vectorise/Utils/Base.hs b/compiler/vectorise/Vectorise/Utils/Base.hs
index 0ffaa60..d41be1e 100644
--- a/compiler/vectorise/Vectorise/Utils/Base.hs
+++ b/compiler/vectorise/Vectorise/Utils/Base.hs
@@ -133,7 +133,7 @@ mkBuiltinCo :: (Builtins -> TyCon) -> VM Coercion
 mkBuiltinCo get_tc
   = do
       tc <- builtin get_tc
-      return $ mkTyConApp tc []
+      return $ mkTyConAppCo tc []
 
 
 mkVScrut :: VExpr -> VM (CoreExpr, CoreExpr, TyCon, [Type])