git.iko.soy/patch
on develop help sign in
Merge pull request #302 from greyhillman/patch-1
eefb776Ali Abrar
src/Reflex/Class.hs+1−1
compare with develop
unifiedsplit
@@ -1367,7 +1367,7 @@ mapAccumMaybeB
1367 -> m (Behavior t a, Event t c)
1367 -> m (Behavior t a, Event t c)
1368mapAccumMaybeB f = mapAccumMaybeMB $ \v o -> return $ f v o
1368mapAccumMaybeB f = mapAccumMaybeMB $ \v o -> return $ f v o
1369
1369
1370−-- | LIke 'mapAccumMaybeB' except that the combining function is a 'PushM' action.
1370+-- | Like 'mapAccumMaybeB' except that the combining function is a 'PushM' action.
1371{-# INLINE mapAccumMaybeMB #-}
1371{-# INLINE mapAccumMaybeMB #-}
1372mapAccumMaybeMB :: (Reflex t, MonadHold t m, MonadFix m) => (a -> b -> PushM t (Maybe a, Maybe c)) -> a -> Event t b -> m (Behavior t a, Event t c)
1372mapAccumMaybeMB :: (Reflex t, MonadHold t m, MonadFix m) => (a -> b -> PushM t (Maybe a, Maybe c)) -> a -> Event t b -> m (Behavior t a, Event t c)
1373mapAccumMaybeMB f z e = do
1373mapAccumMaybeMB f z e = do
src/Reflex/Workflow.hs+1−1
@@ -41,7 +41,7 @@ workflowView w0 = do
41 eReplace <- fmap switch $ hold never $ fmap snd eResult
41 eReplace <- fmap switch $ hold never $ fmap snd eResult
42 return $ fmap fst eResult
42 return $ fmap fst eResult
43
43
44−-- | Map a function over a 'Workflow', possibly changing the resturn type.
44+-- | Map a function over a 'Workflow', possibly changing the return type.
45mapWorkflow :: (Reflex t, Functor m) => (a -> b) -> Workflow t m a -> Workflow t m b
45mapWorkflow :: (Reflex t, Functor m) => (a -> b) -> Workflow t m a -> Workflow t m b
46mapWorkflow f (Workflow x) = Workflow (fmap (f *** fmap (mapWorkflow f)) x)
46mapWorkflow f (Workflow x) = Workflow (fmap (f *** fmap (mapWorkflow f)) x)
47
47