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