@@ -9,7 +9,11 @@ module Control.Has
99 ) where
1010
1111import Control.Lens
12+-- reexport all from Reader except Control.Monad etc
13+-- to correspond mtl-2.3+
1214import Control.Monad.Reader as X
15+ ( MonadReader(..), asks, Reader, runReader, mapReader, withReader
16+ , ReaderT(ReaderT), runReaderT, mapReaderT, withReaderT )
1317import Data.Kind
1418import GHC.Generics as G
1519