module FileHandlingTest import iTasks, GeoDomain, DocumentDomain import GenParse,GenPrint,GenVisualize,GenUpdate docAction :: Task Void docAction = enterInformation "Upload Document to be stored" >>= \doc -> storeDocumentToFile doc "doc" >>= \ok = case ok of True = loadDocumentFromFile doc.Document.fileName "doc" >>= updateInformation "Document" >>= showMessageAbout "Document" False = showMessage "Failed to store" Start :: *World -> *World Start world = startEngine [ workflow "Document Test" (docAction >>| return Void) ] world