@@ -822,6 +822,9 @@ workflowView w0 = do
822822 eReplace <- liftM switch $ hold never $ fmap snd eResult
823823 return $ fmap fst eResult
824824
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)
827+
825828divClass :: forall t m a. MonadWidget t m => String -> m a -> m a
826829divClass = elClass "div"
827830