X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectCore.hs;h=d651526ddf33c50f9a1356db4b803d84980e5a50;hb=cfccfa67393fcf8cb43aaa465d421b67c7117580;hp=50e784754d212b38bbd7a92a101499fa0c2a64d5;hpb=3736e30f683990ee94055b60905cce208a467e8b;p=ghc-hetmet.git

diff --git a/compiler/vectorise/VectCore.hs b/compiler/vectorise/VectCore.hs
index 50e7847..d651526 100644
--- a/compiler/vectorise/VectCore.hs
+++ b/compiler/vectorise/VectCore.hs
@@ -16,12 +16,9 @@ module VectCore (
 #include "HsVersions.h"
 
 import CoreSyn
-import CoreUtils      ( mkInlineMe )
-import MkCore	      ( mkWildCase )
-import CoreUtils      ( exprType )
-import DataCon        ( DataCon )
 import Type           ( Type )
 import Var
+import Outputable
 
 type Vect a = (a,a)
 type VVar   = Vect Var
@@ -89,3 +86,5 @@ vCaseDEFAULT (vscrut, lscrut) (vbndr, lbndr) vty lty (vbody, lbody)
 vInlineMe :: VExpr -> VExpr
 vInlineMe (vexpr, lexpr) = (mkInlineMe vexpr, mkInlineMe lexpr)
 
+mkInlineMe :: CoreExpr -> CoreExpr
+mkInlineMe = pprTrace "VectCore.mkInlineMe" (text "Roman: need to replace mkInlineMe with an InlineRule somehow")