change examples for new sequence api

Examples/Applications/Incidone/Incidone/OP/ImportExportTasks.icl

@@ -6,7 +6,7 @@ import Incidone.OP.Concepts, Incidone.OP.SDSs, Incidone.OP.ContactManagementTask
 importContactsFromCSVFile :: Document -> Task ()
 importContactsFromCSVFile doc
     =   importCSVDocument doc
-    >>- \csv -> sequence "Importing contacts" (map create (skipHeader csv))
+    >>- \csv -> sequence (map create (skipHeader csv))
     @!  ()
 where
     skipHeader [] = []

Examples/Applications/Incidone/Incidone/RoleBased/AdministratorTasks.icl

@@ -118,7 +118,7 @@ where
             @! ()
 
     createIncidoneTables db
-        =   (sequence "Creating Incidone tables" [sqlExecuteCreateTable db table \\ table <- IncidoneDB]
+        =   (sequence [sqlExecuteCreateTable db table \\ table <- IncidoneDB]
         >>- viewInformation "Incidone schema created" []) <<@ Title "Creating Incidone tables..."
         >>* [OnAction ActionOk (always (return ()))]
 
@@ -127,7 +127,7 @@ where
         >>? \_ ->
             get (sdsFocus db sqlTables)
         >>- \tables ->
-            sequence "Deleting all tables" [sqlExecuteDropTable db table \\ table <- tables]
+            sequence [sqlExecuteDropTable db table \\ table <- tables]
         >>- viewInformation ("Empty database","All data deleted") []
         >>* [OnAction ActionOk (always (return ()))]
 
@@ -191,7 +191,7 @@ where
             -&&-
             enterInformation "Immediate close the incidents?" []
         >>= \(num,closed) ->
-            sequence "Generating test incidents" (repeatn num (generateTestIncident closed))
+            sequence (repeatn num (generateTestIncident closed))
         @! ()
 
 configureIntegration :: Task ()

Examples/Applications/ShipAdventure/C2/Framework/Core.icl

@@ -57,7 +57,7 @@ whileAuthenticated user ents alwaysOnTasks tlist
     openAssignedTasks ws = whileUnchanged tasksToDo (doOpen ws) // (watch tasksToDo >>* [OnValue (hasValue (doOpen ws))])
       where
       doOpen :: Workspace [(TaskId, WorklistRow)] -> Task ()
-      doOpen ws xs = sequence "openAssignedTasks" (map (\(taskId, _) -> appendOnce taskId (workOn taskId @! ()) ws) xs) @! ()
+      doOpen ws xs = sequence (map (\(taskId, _) -> appendOnce taskId (workOn taskId @! ()) ws) xs) @! ()
 
 	layout = sequenceLayouts
 		[removeSubUIs (SelectByPath [1]) //Don't show the openAssignedTasks UI