Merge branch 'cleanup' into 'master'

Remove unused type TIUIState

See merge request !315

Libraries/iTasks/Internal/TaskState.dcl

@@ -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

@@ -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

@@ -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