Vectorise.hs 308 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
module Vectorise( vectorise )
where

#include "HsVersions.h"

import DynFlags
import HscTypes

vectorise :: HscEnv -> ModGuts -> IO ModGuts
vectorise hsc_env guts
  | not (Opt_Vectorise `dopt` dflags) = return guts
  | otherwise                         = return guts
  where
    dflags = hsc_dflags hsc_env