obelisk-route: add SetRoute instance for RequesterT
commiteb8945a39b86cebf57fd2d5eb2759f55b41cc0fa
authorAli Abrar <aliabrar@gmail.com>
dateWed 13 Mar 2019, 12:56 (8 years ago)
parent258797e
lib/route/src/Obelisk/Route/Frontend.hs+4
@@ -279,6 +279,10 @@ instance Requester t m => Requester t (SetRouteT t r m) where
279279 requesting = SetRouteT . requesting
280280 requesting_ = SetRouteT . requesting_
281281
282+instance (Monad m, SetRoute t r m) => SetRoute t r (RequesterT t req rsp m) where
283+ setRoute = lift . setRoute
284+ modifyRoute = lift . modifyRoute
285+
282286#ifndef ghcjs_HOST_OS
283287deriving instance MonadJSM m => MonadJSM (SetRouteT t r m)
284288#endif