@@ -444,7 +444,7 @@ mapDyn f = return . fmap f
444444{-# DEPRECATED mapDynM "Consider using the Monad instance for Dynamic instead." #-}
445445mapDynM :: forall t m a b. (Reflex t, MonadHold t m) => (forall m'. MonadSample t m' => a -> m' b) -> Dynamic t a -> m (Dynamic t b)
446446mapDynM f d = do
447− let e' = push (liftM Just . f :: a -> PushM t (Maybe b)) $ updated d
447+ let e' = push (fmap Just . f :: a -> PushM t (Maybe b)) $ updated d
448448 eb' = fmap constant e'
449449 v0 = pull $ f =<< sample (current d)
450450 bb' :: Behavior t (Behavior t b) <- hold v0 eb'