1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs
index 527cbfcb4d..20fade521b 100644
--- a/compiler/vectorise/Vectorise/Exp.hs
+++ b/compiler/vectorise/Vectorise/Exp.hs
@@ -47,7 +47,7 @@ import Control.Monad
 import Control.Applicative
 import Data.Maybe
 import Data.List
-import TcRnMonad (doptM)
+import TcRnMonad (goptM)
 import DynFlags
 import Util
 
@@ -65,7 +65,7 @@ vectPolyExpr :: Bool -> [Var] -> CoreExprWithFVs -> Maybe VITree
   -- precompute vectorisation avoidance information (and possibly encapsulated subexpressions)
 vectPolyExpr loop_breaker recFns expr Nothing
   = do
-    { vectAvoidance <- liftDs $ doptM Opt_AvoidVect
+    { vectAvoidance <- liftDs $ goptM Opt_AvoidVect
     ; vi <- vectAvoidInfo expr  
     ; (expr', vi') <- 
         if vectAvoidance