@@ -822,6 +822,9 @@ workflowView w0 = do
822 eReplace <- liftM switch $ hold never $ fmap snd eResult
822 eReplace <- liftM switch $ hold never $ fmap snd eResult
823 return $ fmap fst eResult
823 return $ fmap fst eResult
825+mapWorkflow :: (MonadWidget t m) => (a -> b) -> Workflow t m a -> Workflow t m b
826+mapWorkflow f (Workflow x) = Workflow (fmap (\(v,e) -> (f v, fmap (mapWorkflow f) e)) x)
825divClass :: forall t m a. MonadWidget t m => String -> m a -> m a
828divClass :: forall t m a. MonadWidget t m => String -> m a -> m a
826divClass = elClass "div"
829divClass = elClass "div"