@@ -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.
4545mapWorkflow :: (Reflex t, Functor m) => (a -> b) -> Workflow t m a -> Workflow t m b
4646mapWorkflow f (Workflow x) = Workflow (fmap (f *** fmap (mapWorkflow f)) x)
4747