blob: efc6f5a32dd22df3a3df965415d749ca37cd1c39 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
module GHC.Driver.Hooks where
import GHC.Prelude ()
data Hooks
emptyHooks :: Hooks
class HasHooks m where
getHooks :: m Hooks
class ContainsHooks a where
extractHooks :: a -> Hooks
|