a3/mart_map2/iTasksTest.icl

   1 module iTasksTest
   2
   3 import iTasks
   4
   5 Start :: *World  -> *World
   6 Start world = startEngine [ publish "/" (WebApp []) (\_ -> test)] world
   7
   8 test :: Task String
   9 test =              enterInformation "What is your name?" []
  10        >>= \name -> viewInformation "Success!" [] ("Congratulations " +++ name +++ "! You got iTasks running.")
  11