@@ -145,6 +145,6 @@ queryDyn q = do
145 tellQueryDyn q
145 tellQueryDyn q
146 zipDynWith crop q <$> askQueryResult
146 zipDynWith crop q <$> askQueryResult
148−-- | use a query morphism to operate on a smaller version of a query.
148+-- | Use a query morphism to operate on a smaller version of a query.
149subQuery :: (Reflex t, MonadQuery t q2 m, Monad m) => QueryMorphism q1 q2 -> Dynamic t q1 -> m (Dynamic t (QueryResult q1))
149subQuery :: (Reflex t, MonadQuery t q2 m, Monad m) => QueryMorphism q1 q2 -> Dynamic t q1 -> m (Dynamic t (QueryResult q1))
150subQuery (QueryMorphism f g) x = fmap g <$> queryDyn (fmap f x)
150subQuery (QueryMorphism f g) x = fmap g <$> queryDyn (fmap f x)