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
73
Issues
73
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
e5c41f3d
Commit
e5c41f3d
authored
Sep 09, 2019
by
Steffen Michels
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'cleanup' into 'master'
Remove unused type TIUIState See merge request
!315
parents
a86e4dbe
5b8138b4
Pipeline
#29300
passed with stage
in 4 minutes and 35 seconds
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
2 additions
and
9 deletions
+2
-9
Libraries/iTasks/Internal/TaskState.dcl
Libraries/iTasks/Internal/TaskState.dcl
+0
-6
Libraries/iTasks/Internal/TaskStore.icl
Libraries/iTasks/Internal/TaskStore.icl
+2
-2
Libraries/iTasks/Internal/WebService.dcl
Libraries/iTasks/Internal/WebService.dcl
+0
-1
No files found.
Libraries/iTasks/Internal/TaskState.dcl
View file @
e5c41f3d
...
...
@@ -55,12 +55,6 @@ derive gDefault TIMeta
=
TIValue
!(
TaskValue
DeferredJSON
)
|
TIException
!
Dynamic
!
String
// UI State
::
TIUIState
=
UIDisabled
//The UI is disabled (e.g. when nobody is viewing the task)
|
UIEnabled
!
Int
!
UIChange
//The UI is enabled, a version number and the previous task rep are stored for comparision //FIXME
|
UIException
!
String
//An unhandled exception occurred and the UI should only show the error message
::
AsyncAction
=
Read
|
Write
|
Modify
::
DeferredJSON
...
...
Libraries/iTasks/Internal/TaskStore.icl
View file @
e5c41f3d
...
...
@@ -34,10 +34,10 @@ from Control.Applicative import class Alternative(<|>)
import
Data
.
GenEq
//Derives required for storage of UI definitions
derive
JSONEncode
TaskOutputMessage
,
TaskResult
,
TaskEvalInfo
,
TIValue
,
ParallelTaskState
,
ParallelTaskChange
,
TIUIState
derive
JSONEncode
TaskOutputMessage
,
TaskResult
,
TaskEvalInfo
,
TIValue
,
ParallelTaskState
,
ParallelTaskChange
derive
JSONEncode
Queue
,
Event
derive
JSONDecode
TaskOutputMessage
,
TaskResult
,
TaskEvalInfo
,
TIValue
,
ParallelTaskState
,
ParallelTaskChange
,
TIUIState
derive
JSONDecode
TaskOutputMessage
,
TaskResult
,
TaskEvalInfo
,
TIValue
,
ParallelTaskState
,
ParallelTaskChange
derive
JSONDecode
Queue
,
Event
derive
gDefault
InstanceFilter
...
...
Libraries/iTasks/Internal/WebService.dcl
View file @
e5c41f3d
...
...
@@ -7,7 +7,6 @@ from Internet.HTTP import :: HTTPRequest, :: HTTPResponse
from
iTasks
.
Engine
import
::
WebTask
from
iTasks
.
Internal
.
IWorld
import
::
IWorld
from
iTasks
.
Internal
.
Task
import
::
Task
,
::
ConnectionTask
from
iTasks
.
Internal
.
TaskState
import
::
TIUIState
from
iTasks
.
Internal
.
TaskStore
import
::
TaskOutput
,
::
TaskOutputMessage
import
iTasks
.
SDS
.
Definition
from
iTasks
.
UI
.
Definition
import
::
UIChange
...
...
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