diff options
Diffstat (limited to 'hadrian/src/Oracles/Flavour.hs')
| -rw-r--r-- | hadrian/src/Oracles/Flavour.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/hadrian/src/Oracles/Flavour.hs b/hadrian/src/Oracles/Flavour.hs index 88e9c89757..040787a7b2 100644 --- a/hadrian/src/Oracles/Flavour.hs +++ b/hadrian/src/Oracles/Flavour.hs @@ -18,16 +18,16 @@ newtype DynGhcPrograms = type instance RuleResult DynGhcPrograms = Bool newtype GhcProfiled = - GhcProfiled () deriving (Show, Typeable, Eq, Hashable, Binary, NFData) + GhcProfiled Stage deriving (Show, Typeable, Eq, Hashable, Binary, NFData) type instance RuleResult GhcProfiled = Bool oracles :: Rules () oracles = do void $ addOracle $ \(DynGhcPrograms _) -> dynamicGhcPrograms =<< flavour - void $ addOracle $ \(GhcProfiled _) -> ghcProfiled <$> flavour + void $ addOracle $ \(GhcProfiled stage) -> ghcProfiled <$> flavour <*> pure stage askDynGhcPrograms :: Action Bool askDynGhcPrograms = askOracle $ DynGhcPrograms () -askGhcProfiled :: Action Bool -askGhcProfiled = askOracle $ GhcProfiled () +askGhcProfiled :: Stage -> Action Bool +askGhcProfiled s = askOracle $ GhcProfiled s |