Commit 5b8138b4 authored by Camil Staps's avatar Camil Staps 🚀

Remove unused type TIUIState

parent a86e4dbe
Pipeline #29296 passed with stage
in 4 minutes and 44 seconds
......@@ -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
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment