Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
I
iTasks-SDK
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
74
Issues
74
List
Boards
Labels
Service Desk
Milestones
Merge Requests
6
Merge Requests
6
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
iTasks-SDK
Commits
adceb398
Commit
adceb398
authored
Apr 12, 2019
by
Bas Lijnse
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Restored inclusion of user management for admin user in BasicAPIExamples
parent
a31ae2bc
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
3 deletions
+12
-3
Examples/CreateBasicAPIExamples.icl
Examples/CreateBasicAPIExamples.icl
+5
-2
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.icl
Libraries/iTasks/Extensions/Admin/WorkflowAdmin.icl
+7
-1
No files found.
Examples/CreateBasicAPIExamples.icl
View file @
adceb398
...
...
@@ -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
View file @
adceb398
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment