@@ -269,7 +269,7 @@ instance (MonadReader r m) => MonadReader r (BH m) where
269 local f (BH (ReaderT m)) = BH $ ReaderT $ \r ->
269 local f (BH (ReaderT m)) = BH $ ReaderT $ \r ->
270 local f (m r)
270 local f (m r)
272−instance (Functor m, Applicative m, MonadIO m) => MonadBloodhound (BH m) where
272+instance (Functor m, Applicative m, MonadIO m) => MonadBH (BH m) where
273 getBHEnv = BH getBHEnv
273 getBHEnv = BH getBHEnv