Merge pull request #380 from benkolera/generalise_mapRoutedT
Generalise mapRoutedT
commitb2be6372bd263037cf89e1a68e0fd35dfd370f4e
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateSun 17 Mar 2019, 21:53 (8 years ago)
parentca6edae1d338af
lib/route/src/Obelisk/Route/Frontend.hs+1−1
@@ -171,7 +171,7 @@ instance (Monad m, SetRoute t r m) => SetRoute t r (QueryT t q m) where
171171runRoutedT :: RoutedT t r m a -> Dynamic t r -> m a
172172runRoutedT = runReaderT . unRoutedT
173173
174−mapRoutedT :: (m a -> n a) -> RoutedT t r m a -> RoutedT t r n a
174+mapRoutedT :: (m a -> n b) -> RoutedT t r m a -> RoutedT t r n b
175175mapRoutedT f = RoutedT . mapReaderT f . unRoutedT
176176
177177withRoutedT :: (Dynamic t r -> Dynamic t r') -> RoutedT t r' m a -> RoutedT t r m a