hermit-0.3.2.0: src/HERMIT.hs

module HERMIT (plugin) where

import Data.Maybe (fromMaybe)

import HERMIT.GHC
import HERMIT.Optimize
import HERMIT.Plugin (getPhaseFlag)

plugin :: Plugin
plugin = optimize $ \ options -> let (pn,opts) = fromMaybe (0,options) (getPhaseFlag options)
                                 in phase pn $ interactive [] opts