Verified Commit a2cf2063 authored by Camil Staps's avatar Camil Staps 🚀

Add imports of Data.Maybe to main iTasks module and elsewhere in anticipation...

Add imports of Data.Maybe to main iTasks module and elsewhere in anticipation of restricted imports in Platform
parent 4e1cb755
Pipeline #45348 passed with stage
in 9 minutes and 27 seconds
......@@ -3,6 +3,7 @@ implementation module Ligretto.UI
import StdBool, StdEnum, StdList
from StdFunc import id, const, flip, o
import Data.GenEq
import Data.Maybe
import iTasks.WF.Tasks.Interaction
import Graphics.Scalable.Extensions
import iTasks.Extensions.SVG.SVGEditor
......
......@@ -41,6 +41,9 @@ import
, iTasks.Extensions.Admin.UserAdmin
, iTasks.Extensions.Admin.WorkflowAdmin
// Common Platform modules
, Data.Maybe
//StdEnv modules
, StdInt
, StdBool
......
......@@ -3,6 +3,7 @@ implementation module iTasks.Engine
import Data.Func
import Data.Functor
import Data.List
import Data.Maybe
import Data.Queue
import Internet.HTTP
import StdEnv
......
......@@ -8,6 +8,7 @@ import iTasks.UI.Editor.Modifiers
import iTasks.Internal.Serialization
import ABC.Interpreter.JavaScript
import qualified Data.Map as DM
import Data.Maybe
//Basic idea:
//- Give the inner editor an exact size in pixels
......
implementation module iTasks.Internal.AsyncSDS
import Data.Either, Data.List, Data.Func
import Data.Maybe
import iTasks.Internal.TaskEval
import iTasks.Internal.TaskState
import Text, Text.GenJSON
......
......@@ -2,6 +2,7 @@ implementation module iTasks.Internal.HtmlUtil
from Data.Map import :: Map
import qualified Data.Map as DM
import Data.Maybe
import Text.HTML, Text.GenJSON, Text, Internet.HTTP, System.OS
import StdList, StdBool
......
......@@ -4,6 +4,7 @@ import Internet.HTTP
import StdArray, StdOverloaded, StdString, StdFile, StdBool, StdInt, StdArray, StdList, StdFunc, StdTuple
import System.Time, Text, Text.Encodings.UrlEncoding
from Data.Map import newMap, put, fromList, get, :: Map (..)
import Data.Maybe
from Data.List import lookup
http_splitMultiPart :: !String !String -> [([(String,String)], String)]
......
......@@ -10,6 +10,7 @@ import Data.Func
import Data.Integer
from Data.Map import :: Map
import qualified Data.Map as DM
import Data.Maybe
import Math.Random
import System.CommandLine
import System.Directory
......
......@@ -7,6 +7,7 @@ import qualified Text
from Data.Map import :: Map
import qualified Data.Map as DM
import Data.Error, Data.Func, Data.Tuple, System.OS, System.Time, Text.GenJSON, Data.Foldable
import Data.Maybe
from Data.Set import instance Foldable Set, instance < (Set a)
import qualified Data.Set as Set
import iTasks.Engine
......
......@@ -4,6 +4,7 @@ from StdFunc import const, id
import StdClass, StdArray, StdTuple, StdInt, StdList, StdBool, StdMisc, Data.Func
from Data.Map import :: Map
import qualified Data.Map as DM
import Data.Maybe
import Text.HTML, Internet.HTTP, Data.Error, Data.Functor, Text.GenJSON
import iTasks.Internal.IWorld, iTasks.UI.Definition, iTasks.Internal.Util, iTasks.Internal.DynamicUtil
from System.OSError import :: MaybeOSError, :: OSError, :: OSErrorCode, :: OSErrorMessage
......
......@@ -10,6 +10,7 @@ import Data.List
import Data.Func
import qualified Data.Map as DM
import Data.Map.GenJSON
import Data.Maybe
import qualified Data.Queue as DQ
import qualified Data.Set as DS
from Data.Set import :: Set, instance Foldable Set
......
......@@ -2,6 +2,7 @@ implementation module iTasks.Internal.TaskServer
import Data.Functor
import Data.Map => qualified updateAt
import Data.Maybe
import Data.Tuple, Data.Func
import StdEnv
import System.CommandLine
......
......@@ -2,6 +2,7 @@ implementation module iTasks.Internal.TaskState
import StdEnv
import Data.Either, Text, System.Time, Math.Random, Text.GenJSON, Data.Func, Data.Tuple, Data.List, Data.Error, System.FilePath, Data.Functor, Data.Set.GenJSON
import Data.Maybe
import Text.GenJSON, StdString, Data.Func, Data.GenEq, Data.Functor, Data.Map.GenJSON, Data.Set.GenJSON
import iTasks.UI.Definition, iTasks.UI.Layout
......
......@@ -6,6 +6,7 @@ import Data.Functor, Data.Func
from Data.Map import :: Map (..)
import qualified Data.List as DL
import qualified Data.Map as DM
import Data.Maybe
import qualified Data.Queue as DQ
import qualified iTasks.Internal.SDS as SDS
......
......@@ -12,6 +12,7 @@ import qualified Data.IntMap.Strict as DIS
from Data.IntMap.Strict import :: IntMap
from Data.Map import :: Map
import Data.Error, Data.Either, StdString
import Data.Maybe
import Text.GenJSON
import System.FilePath
import iTasks.Internal.SDS
......
......@@ -6,6 +6,7 @@ import iTasks.SDS.Combinators.Common
import iTasks.Extensions.DateTime //FIXME: Extensions should not be part of core
import System.Time
import Data.Func, Data.Either
import Data.Maybe
from Text import class Text(concat), instance Text String
import iTasks.Engine
......
......@@ -7,6 +7,7 @@ import iTasks.UI.Definition, iTasks.UI.Editor, iTasks.UI.Editor.Containers, iTas
import Data.Tuple, Data.Error, Text, Text.GenJSON, Data.Func, Data.Functor
import Data.Error.GenJSON
import qualified Data.Map as DM
import Data.Maybe
emptyEditor :: Editor a w | JSONEncode{|*|}, JSONDecode{|*|} a
emptyEditor = leafEditorToEditor {LeafEditor|onReset=onReset,onEdit=onEdit,onRefresh=onRefresh,writeValue=writeValue}
......
......@@ -10,6 +10,7 @@ import iTasks.UI.Editor.Modifiers
import Data.Error, Data.Func, Data.Functor, Data.Either
import Text.GenJSON
from Data.Map import :: Map
import Data.Maybe
import StdBool, StdList, StdTuple, StdFunc
......
......@@ -4,6 +4,7 @@ import StdEnv
import iTasks.UI.Definition, iTasks.UI.Editor
import Data.GenEq, Data.Error, Text.GenJSON, Text.HTML, Data.Func, Data.Functor, Data.Tuple, Data.List, Data.Map.GenJSON
import qualified Data.Map as DM
import Data.Maybe
import iTasks.WF.Derives
import iTasks.UI.Definition
......
......@@ -14,6 +14,7 @@ import Text.GenJSON
import Text.Language
import System.Time
import Data.GenEq, Data.Func, Control.GenBimap, Data.Functor, Data.Tuple, Data.Integer, Data.Integer.GenJSON
import Data.Maybe
import qualified Control.Monad as CM
generic gEditor a | gText a, JSONEncode a, JSONDecode a *! :: Editor a (?a)
......
......@@ -6,6 +6,7 @@ import iTasks.UI.Editor, iTasks.UI.Definition, iTasks.UI.Tune
import Data.Error, Text.GenJSON, Data.Tuple, Data.Functor
import Data.GenEq, Data.Func, Data.List
import qualified Data.Map as DM
import Data.Maybe
withEditModeAttr :: !(Editor r w) -> Editor r w
withEditModeAttr editor=:{Editor|onReset=editorOnReset} = {Editor|editor & onReset = onReset}
......
......@@ -11,6 +11,7 @@ import Data.Monoid
import qualified Data.Map as DM
import Control.Monad
import Data.Map.GenJSON
import Data.Maybe
from Data.Func import $
from StdListExtensions import foldlSt
from iTasks.Internal.TaskEval import :: TaskEvalOpts(..), :: TaskTime
......
......@@ -6,6 +6,7 @@ import StdEnv
import Data.Functor
import Data.Func
import qualified Data.Map as DM
import Data.Maybe
import iTasks.Engine
import iTasks.Internal.SDS
......
......@@ -14,6 +14,7 @@ import Data.Func
import Data.Functor
import qualified Data.Map as Map
import Data.Map.GenJSON
import Data.Maybe
import qualified Data.Set as Set
from Data.Set import instance Foldable Set
import System.Time
......
......@@ -18,6 +18,7 @@ import Text.GenJSON
import StdString, StdBool, StdInt, StdMisc, StdFunc
import qualified Data.Set as DS
import qualified Data.Map as DM
import Data.Maybe
return :: !a -> (Task a)
return a = mkInstantTask (\taskId iworld-> (Ok a, iworld))
......
......@@ -22,6 +22,7 @@ import System.Process
import Text, Text.GenJSON, StdString, StdInt, StdBool, StdList, StdTuple, Data.Tuple, Data.Func
import StdFunc => qualified return
import qualified Data.Map as DM
import Data.Maybe
import qualified Data.Set as DS
:: ExitCode = ExitCode !Int
......
......@@ -6,6 +6,7 @@ from Data.Tuple import appSnd
from Data.List import isMemberGen, findIndex, instance Functor [], getItems
from Data.Map import qualified get, put
import qualified Data.Map as DM
import Data.Maybe
import StdBool, StdList, StdMisc, StdTuple, Data.Functor, StdString
import iTasks.WF.Derives
......
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