Restored inclusion of user management for admin user in BasicAPIExamples

Examples/CreateBasicAPIExamples.icl

@@ -34,7 +34,8 @@ makeExs :: [FilePath] -> [String]
 makeExs i =
 	[ "module BasicAPIExamples\n"
 	, "\n"
-	, "import iTasks"
+	, "import iTasks\n"
+	, "import qualified iTasks.Extensions.Admin.UserAdmin\n"
 	, "\n"
 	, join "\n" ["import qualified " +++ toDots i\\i<-i]
 	, "\n\n"
@@ -45,8 +46,10 @@ makeExs i =
 	, "\n"
 	, "basicAPIExamples :: [Workflow]\n"
 	, "basicAPIExamples =\n"
-	, "\t[",join "\n\t," (map (\i->concat ["'", toDots i, "'.wf \"", toString (insertSpaces 0 (dropExtension i)), "\""]) i), "\n\t]\n"]
+	, "\t[",join "\n\t," (defaultWfs ++ exampleWfs), "\n\t]\n"]
 where
+	defaultWfs = ["restrictedTransientWorkflow \"Users\" \"User management\" [\"admin\"] 'iTasks.Extensions.Admin.UserAdmin'.manageUsers"]
+	exampleWfs = map (\i->concat ["'", toDots i, "'.wf \"", toString (insertSpaces 0 (dropExtension i)), "\""]) i
 	toDots = join "." o split (toString pathSeparator) o dropExtension
 	insertSpaces i s
 		| i == size s = []

Libraries/iTasks/Extensions/Admin/WorkflowAdmin.icl

@@ -98,6 +98,7 @@ instance Startable WorkflowCollection
 where
 	toStartable {WorkflowCollection|name,workflows} =
 		[onStartup (installWorkflows workflows)
+		,onStartup installDemoUsers
 		,onRequest "/" (loginAndManageWork name)
 		]
 
@@ -105,10 +106,15 @@ installWorkflows :: ![Workflow] -> Task ()
 installWorkflows [] = return ()
 installWorkflows iflows
 	=   try (get workflows) (\(StoreReadBuildVersionError _) -> return [])
-	>>= \flows -> case flows of
+	>>- \flows -> case flows of
 		[]	= set iflows workflows @! ()
 		_	= return ()
 
+installDemoUsers :: Task ()
+installDemoUsers
+	=   try (get users) (\(StoreReadBuildVersionError _) -> return [])
+	>>- \us -> if (length us <= 1) (importDemoUsersFlow @! ()) (return ()) //No users, or just a single root user
+
 loginAndManageWork :: !String -> Task ()
 loginAndManageWork welcome
 	= forever