MFlow-0.3.0.1: Demos/testREST.hs

import MFlow.Wai.Blaze.Html.All

-- 9 pages , each page has a restful link (page = ask)
main= runNavigation "" $ transientNav $ do
  liftIO $ print "start/restart"

  setHeader $ html . body

  option <- page $   wlink "a" << p << "letters " <++ p << "or"
                 <|> wlink "1" << p << "numbers"

  case option of
    "1" -> do
          page $ wlink "2" << cont "1"
          page $ wlink "3" << cont "2"
          page $ wlink "4" << cont "3"
          page $ wlink ()  <<  "menu"

    "a" -> do
          page $ wlink "b" << cont "a"
          page $ wlink "c" << cont "b"
          page $ wlink "d" << cont "c"
          page $ wlink ()  <<  "menu"


cont x= p << ("page for " ++ x ++ " goto next page")