Skip to content

Commit eefb776

Browse files
authored
Merge pull request #302 from greyhillman/patch-1
Fix typos in some haddock documentation
2 parents a3590c3 + 72516e3 commit eefb776

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

src/Reflex/Class.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1367,7 +1367,7 @@ mapAccumMaybeB
13671367
-> m (Behavior t a, Event t c)
13681368
mapAccumMaybeB f = mapAccumMaybeMB $ \v o -> return $ f v o
13691369

1370-
-- | LIke 'mapAccumMaybeB' except that the combining function is a 'PushM' action.
1370+
-- | Like 'mapAccumMaybeB' except that the combining function is a 'PushM' action.
13711371
{-# INLINE mapAccumMaybeMB #-}
13721372
mapAccumMaybeMB :: (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)
13731373
mapAccumMaybeMB f z e = do

src/Reflex/Workflow.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -41,7 +41,7 @@ workflowView w0 = do
4141
eReplace <- fmap switch $ hold never $ fmap snd eResult
4242
return $ fmap fst eResult
4343

44-
-- | Map a function over a 'Workflow', possibly changing the resturn type.
44+
-- | Map a function over a 'Workflow', possibly changing the return type.
4545
mapWorkflow :: (Reflex t, Functor m) => (a -> b) -> Workflow t m a -> Workflow t m b
4646
mapWorkflow f (Workflow x) = Workflow (fmap (f *** fmap (mapWorkflow f)) x)
4747

0 commit comments

Comments
 (0)