compiler/vectorise/Vectorise.hs

   1 module Vectorise( vectorise )
   2 where
   3
   4 #include "HsVersions.h"
   5
   6 import DynFlags
   7 import HscTypes
   8
   9 vectorise :: HscEnv -> ModGuts -> IO ModGuts
  10 vectorise hsc_env guts
  11   | not (Opt_Vectorise `dopt` dflags) = return guts
  12   | otherwise                         = return guts
  13   where
  14     dflags = hsc_dflags hsc_env
  15