@@ -820,6 +820,9 @@ workflowView w0 = do
820820 eReplace <- liftM switch $ hold never $ fmap snd eResult
821821 return $ fmap fst eResult
822822
823+mapWorkflow :: (MonadWidget t m) => (a -> b) -> Workflow t m a -> Workflow t m b
824+mapWorkflow f (Workflow x) = Workflow (fmap (\(v,e) -> (f v, fmap (mapWorkflow f) e)) x)
825+
823826divClass :: forall t m a. MonadWidget t m => String -> m a -> m a
824827divClass = elClass "div"
825828