module Initialise ( Initialise, runInitialise, ) where import Configuration (Configuration) import Control.Monad.Reader (ReaderT, runReaderT) type Initialise = ReaderT Configuration IO runInitialise :: Initialise a -> Configuration -> IO a runInitialise :: forall a. Initialise a -> Configuration -> IO a runInitialise = forall r (m :: * -> *) a. ReaderT r m a -> r -> m a runReaderT