MFlow-0.3.1.0: Demos/IncreaseString.hs

module IncreaseString ( clicks) where

import MFlow.Wai.Blaze.Html.All

clicks s= do
   s' <- ask $  p << b <<  "increase a String"
             ++> p << b <<  "press the back button to go back to the menu"
             ++>(getString (Just s)
             <* submitButton "submit")
             `validate` (\s -> return $ if length s   > 5 then Just (b << "length must be < 5") else Nothing )
   clicks $ s'++ "1"


-- to run it alone:
--main= runNavigation "" $ transientNav clicks "1"