implementation module GUIDemo import iTasks guiDemoExample :: [Workflow] guiDemoExample = [ workflow "Examples/Miscellaneous/GUI Demo" "Demo of user interface elements" guiDemo] :: Address = { street :: String , number :: Int , postalCode :: String , city :: String } :: Person = { name :: String , cool :: Bool , dob :: Date , tob :: Time , age :: Maybe Int , address :: Address , grades :: [Int] , note :: Maybe Note } derive class iTask Person, Address derive bimap (,), Maybe address = {Address | street = "Heyendaalseweg", number = 135, postalCode = "6525 AJ", city = "Nijmegen"} person = {Person | name = "John Doe" , cool = True , dob = {Date | year = 1978, mon = 4, day = 1} , tob = {Time | hour = 13, min = 42, sec = 0} , age = Just 23 , address = address , grades = [] , note = Nothing } guiDemo :: Task Person guiDemo = updateInformation "Update person" "You may change this information" person >>= showMessageAbout "Summary" "This is the information you entered"