Verified Commit 2657a422 authored by Camil Staps's avatar Camil Staps 🚀

Update for clean-platform!135 (generics namespace)

parent acb7d8d0
definition module C2.Apps.ShipAdventure.Types definition module C2.Apps.ShipAdventure.Types
import C2.Framework.MapEnvironment import C2.Framework.MapEnvironment
import Data.Generics.GenLexOrd import Data.GenLexOrd
from C2.Apps.ShipAdventure.Images import :: RenderMode from C2.Apps.ShipAdventure.Images import :: RenderMode
:: MyActor :== Actor ObjectType ActorStatus :: MyActor :== Actor ObjectType ActorStatus
......
...@@ -7,7 +7,7 @@ import iTasks.Extensions.Admin.TonicAdmin ...@@ -7,7 +7,7 @@ import iTasks.Extensions.Admin.TonicAdmin
from Data.IntMap.Strict import :: IntMap from Data.IntMap.Strict import :: IntMap
import qualified Data.Map as DM import qualified Data.Map as DM
from Data.Map import :: Map from Data.Map import :: Map
import Data.Generics.GenLexOrd import Data.GenLexOrd
:: Maps2D :== [Map2D] // enumerate sub-maps, order is assumed `lowest' to `highest', mapID identifies map :: Maps2D :== [Map2D] // enumerate sub-maps, order is assumed `lowest' to `highest', mapID identifies map
......
...@@ -13,7 +13,7 @@ import qualified Data.IntMap.Strict as DIS ...@@ -13,7 +13,7 @@ import qualified Data.IntMap.Strict as DIS
from Data.IntMap.Strict import :: IntMap from Data.IntMap.Strict import :: IntMap
import qualified Data.Heap as DH import qualified Data.Heap as DH
from Data.Heap import :: Heap from Data.Heap import :: Heap
import Data.Generics.GenLexOrd import Data.GenLexOrd
from C2.Framework.Logging import addLog from C2.Framework.Logging import addLog
import Data.List import Data.List
import Data.Eq import Data.Eq
......
...@@ -2,7 +2,7 @@ implementation module Ligretto.UI ...@@ -2,7 +2,7 @@ implementation module Ligretto.UI
import StdBool, StdEnum, StdList import StdBool, StdEnum, StdList
from StdFunc import id, const from StdFunc import id, const
import Data.Generics.GenEq import Data.GenEq
import iTasks.UI.JS.Encoding import iTasks.UI.JS.Encoding
import iTasks.WF.Tasks.Interaction import iTasks.WF.Tasks.Interaction
import ScalableExts.Scalable import ScalableExts.Scalable
......
...@@ -5,7 +5,7 @@ import Data.Maybe // for the Maybe type ...@@ -5,7 +5,7 @@ import Data.Maybe // for the Maybe type
import Math.Random // for generating random numbers import Math.Random // for generating random numbers
import iTasks.WF.Definition // for the iTask infrastructure import iTasks.WF.Definition // for the iTask infrastructure
import iTasks.Extensions.User // for the User data type import iTasks.Extensions.User // for the User data type
import Data.Generics.GenEq import Data.GenEq
from iTasks.Internal.Generic.Visualization import <+++ // <+++ shouldn't be imported from here from iTasks.Internal.Generic.Visualization import <+++ // <+++ shouldn't be imported from here
// Make iTask infrastructure available for Ligretto model data types: // Make iTask infrastructure available for Ligretto model data types:
......
...@@ -5,8 +5,8 @@ from iTasks.Extensions.User import :: User ...@@ -5,8 +5,8 @@ from iTasks.Extensions.User import :: User
import PlatformExts.Tuple import PlatformExts.Tuple
from StdClass import class zero, class ~ from StdClass import class zero, class ~
import Data.Maybe import Data.Maybe
import Data.Generics.GenFDomain import Data.GenFDomain
import Data.Generics.GenEq, Data.Generics.GenLexOrd, Data.Generics.GenMap import Data.GenEq, Data.GenLexOrd, Control.GenMap
derive class iTask TraxSt, /*Coordinate,*/ TileEdge, LineColor derive class iTask TraxSt, /*Coordinate,*/ TileEdge, LineColor
......
...@@ -7,8 +7,8 @@ import StdMisc ...@@ -7,8 +7,8 @@ import StdMisc
from StdFunc import flip from StdFunc import flip
from Data.List import lookup, deleteFirstsBy, hasDup, qfoldl from Data.List import lookup, deleteFirstsBy, hasDup, qfoldl
import Data.Maybe import Data.Maybe
import Data.Generics.GenFDomain import Data.GenFDomain
import Data.Generics.GenLexOrd, Data.Generics.GenMap, Data.Generics.GenPrint import Data.GenLexOrd, Control.GenMap, Text.GenPrint
import Text import Text
lookup1 x = fromJust o (lookup x) lookup1 x = fromJust o (lookup x)
......
...@@ -4,7 +4,7 @@ import iTasks.Engine ...@@ -4,7 +4,7 @@ import iTasks.Engine
import iTasks.WF.Tasks.Interaction import iTasks.WF.Tasks.Interaction
import iTasks.WF.Combinators.Common import iTasks.WF.Combinators.Common
import iTasks.SDS.Sources.Store import iTasks.SDS.Sources.Store
import Data.Generics.GenPrint import Text.GenPrint
import iTasks.UI.Prompt import iTasks.UI.Prompt
import Graphics.Scalable.Image import Graphics.Scalable.Image
import iTasks.Extensions.SVG.SVGEditor import iTasks.Extensions.SVG.SVGEditor
......
...@@ -4,7 +4,7 @@ import iTasks.Engine ...@@ -4,7 +4,7 @@ import iTasks.Engine
import iTasks.WF.Tasks.Interaction import iTasks.WF.Tasks.Interaction
import iTasks.WF.Combinators.Common import iTasks.WF.Combinators.Common
import iTasks.SDS.Sources.Store import iTasks.SDS.Sources.Store
import Data.Generics.GenPrint // printing via <+++ has a known bug, so we use printToString instead import Text.GenPrint // printing via <+++ has a known bug, so we use printToString instead
import iTasks.UI.Prompt import iTasks.UI.Prompt
import Graphics.Scalable.Image import Graphics.Scalable.Image
import iTasks.Extensions.SVG.SVGEditor import iTasks.Extensions.SVG.SVGEditor
......
...@@ -4,7 +4,7 @@ import iTasks.Engine ...@@ -4,7 +4,7 @@ import iTasks.Engine
import iTasks.WF.Tasks.Interaction import iTasks.WF.Tasks.Interaction
import iTasks.WF.Combinators.Common import iTasks.WF.Combinators.Common
import iTasks.SDS.Sources.Store import iTasks.SDS.Sources.Store
import Data.Generics.GenPrint // printing via <+++ has a known bug, so we use printToString instead import Text.GenPrint // printing via <+++ has a known bug, so we use printToString instead
import iTasks.UI.Prompt import iTasks.UI.Prompt
import Graphics.Scalable.Image import Graphics.Scalable.Image
import iTasks.Extensions.SVG.SVGEditor import iTasks.Extensions.SVG.SVGEditor
......
...@@ -4,7 +4,7 @@ import iTasks.Engine ...@@ -4,7 +4,7 @@ import iTasks.Engine
import iTasks.WF.Tasks.Interaction import iTasks.WF.Tasks.Interaction
import iTasks.WF.Combinators.Common import iTasks.WF.Combinators.Common
import iTasks.SDS.Sources.Store import iTasks.SDS.Sources.Store
import Data.Generics.GenPrint // printing via <+++ has a known bug, so we use printToString instead import Text.GenPrint // printing via <+++ has a known bug, so we use printToString instead
import iTasks.UI.Prompt import iTasks.UI.Prompt
import Graphics.Scalable.Image import Graphics.Scalable.Image
import iTasks.Extensions.SVG.SVGEditor import iTasks.Extensions.SVG.SVGEditor
......
...@@ -4,7 +4,7 @@ import iTasks.Engine ...@@ -4,7 +4,7 @@ import iTasks.Engine
import iTasks.WF.Tasks.Interaction import iTasks.WF.Tasks.Interaction
import iTasks.WF.Combinators.Common import iTasks.WF.Combinators.Common
import iTasks.SDS.Sources.Store import iTasks.SDS.Sources.Store
import Data.Generics.GenPrint import Text.GenPrint
import iTasks.UI.Prompt import iTasks.UI.Prompt
import Graphics.Scalable.Image import Graphics.Scalable.Image
import iTasks.Extensions.SVG.SVGEditor import iTasks.Extensions.SVG.SVGEditor
......
...@@ -34,7 +34,7 @@ import ...@@ -34,7 +34,7 @@ import
, iTasks.UI.Editor.Modifiers , iTasks.UI.Editor.Modifiers
// Miscellaneous machinery // Miscellaneous machinery
, Text.JSON // JSON is used for serializing/deserializing strings , Text.GenJSON // JSON is used for serializing/deserializing strings
, iTasks.UI.Prompt // Standard for creating prompts , iTasks.UI.Prompt // Standard for creating prompts
, iTasks.UI.Layout.Common // Standard layout patterns , iTasks.UI.Layout.Common // Standard layout patterns
......
implementation module iTasks implementation module iTasks
import Text.JSON import Text.GenJSON
...@@ -17,7 +17,7 @@ import iTasks.UI.Editor.Modifiers ...@@ -17,7 +17,7 @@ import iTasks.UI.Editor.Modifiers
import StdBool, StdArray, StdEnum, StdList, StdString import StdBool, StdArray, StdEnum, StdList, StdString
import Text, Text.JSON, System.Time import Text, Text.GenJSON, System.Time
import Data.Maybe, Data.Error import Data.Maybe, Data.Error
import qualified Data.Map as DM import qualified Data.Map as DM
......
...@@ -6,7 +6,7 @@ import iTasks.UI.Editor.Controls, iTasks.UI.Editor.Modifiers ...@@ -6,7 +6,7 @@ import iTasks.UI.Editor.Controls, iTasks.UI.Editor.Modifiers
import iTasks.Internal.Task, iTasks.Internal.IWorld, iTasks.Internal.TaskStore import iTasks.Internal.Task, iTasks.Internal.IWorld, iTasks.Internal.TaskStore
import StdBool, StdString, StdFile, StdArray, StdInt import StdBool, StdString, StdFile, StdArray, StdInt
import Text.JSON, Text.Encodings.MIME, Text.HTML, System.FilePath, System.File, System.OSError, Data.Error import Text.GenJSON, Text.Encodings.MIME, Text.HTML, System.FilePath, System.File, System.OSError, Data.Error
import qualified Data.Map as DM import qualified Data.Map as DM
from StdFunc import const from StdFunc import const
......
implementation module iTasks.Extensions.JSONFile implementation module iTasks.Extensions.JSONFile
import StdBool, StdList, StdFile, StdArray, System.FilePath, System.File, Data.Error, Text.JSON, StdString import StdBool, StdList, StdFile, StdArray, System.FilePath, System.File, Data.Error, Text.GenJSON, StdString
import iTasks.Internal.IWorld, iTasks.Internal.Task, iTasks.Internal.TaskState, iTasks.Internal.TaskStore import iTasks.Internal.IWorld, iTasks.Internal.Task, iTasks.Internal.TaskState, iTasks.Internal.TaskStore
:: JSONParseException = CannotParse !String :: JSONParseException = CannotParse !String
......
...@@ -4,7 +4,7 @@ import Graphics.Scalable.Internal.Image` ...@@ -4,7 +4,7 @@ import Graphics.Scalable.Internal.Image`
import iTasks.UI.Definition, iTasks.UI.Editor, iTasks.UI.JS.Encoding import iTasks.UI.Definition, iTasks.UI.Editor, iTasks.UI.JS.Encoding
import StdArray, StdBool, StdEnum, StdInt, StdMisc, StdReal, StdTuple import StdArray, StdBool, StdEnum, StdInt, StdMisc, StdReal, StdTuple
from StdFunc import o from StdFunc import o
from Data.Generics.GenEq import generic gEq from Data.GenEq import generic gEq
import Data.List import Data.List
import Data.Error import Data.Error
import Data.MapCollection import Data.MapCollection
...@@ -15,7 +15,7 @@ import qualified Data.Set as DS ...@@ -15,7 +15,7 @@ import qualified Data.Set as DS
import Text import Text
import Data.Matrix import Data.Matrix
import Text.HTML import Text.HTML
import Text.JSON import Text.GenJSON
import Math.Geometry import Math.Geometry
CLICK_DELAY :== 225 CLICK_DELAY :== 225
......
...@@ -14,7 +14,7 @@ from Data.Queue as DQ import qualified newQueue, dequeue ...@@ -14,7 +14,7 @@ from Data.Queue as DQ import qualified newQueue, dequeue
import iTasks.Extensions.DateTime import iTasks.Extensions.DateTime
import System.Time, Math.Random import System.Time, Math.Random
import Text.JSON import Text.GenJSON
:: TaskState a = :: TaskState a =
{ instanceNo :: !InstanceNo { instanceNo :: !InstanceNo
......
definition module iTasks.Internal.DynamicUtil definition module iTasks.Internal.DynamicUtil
import Text.JSON import Text.GenJSON
//derive JSONEncode TypeCode //derive JSONEncode TypeCode
//derive JSONDecode TypeCode //derive JSONDecode TypeCode
......
implementation module iTasks.Internal.DynamicUtil implementation module iTasks.Internal.DynamicUtil
import _SystemDynamic import _SystemDynamic
import Data.Maybe, Text.JSON import Data.Maybe, Text.GenJSON
:: MyTypeCodeConstructor = E.a: { my_tcc_cons :: !a } :: MyTypeCodeConstructor = E.a: { my_tcc_cons :: !a }
......
definition module iTasks.Internal.Generic.Defaults definition module iTasks.Internal.Generic.Defaults
import Data.Generics.GenDefault import Data.GenDefault
derive gDefault (->), Bool, Char, Maybe, Either, MaybeError, Map, JSONNode, HtmlTag, Timestamp derive gDefault (->), Bool, Char, Maybe, Either, MaybeError, Map, JSONNode, HtmlTag, Timestamp
from Text.JSON import :: JSONNode from Text.GenJSON import :: JSONNode
from Text.HTML import :: HtmlTag from Text.HTML import :: HtmlTag
from Data.Maybe import :: Maybe from Data.Maybe import :: Maybe
from Data.Either import :: Either from Data.Either import :: Either
......
implementation module iTasks.Internal.Generic.Defaults implementation module iTasks.Internal.Generic.Defaults
import StdGeneric, StdFunc import StdGeneric, StdFunc
import Data.Maybe, Data.Either, Data.Error, Data.Map, Text.HTML, Text.JSON, System.Time import Data.Maybe, Data.Either, Data.Error, Data.Map, Text.HTML, Text.GenJSON, System.Time
import Data.Generics.GenDefault import Data.GenDefault
gDefault{|Bool|} = False gDefault{|Bool|} = False
gDefault{|Char|} = '-' gDefault{|Char|} = '-'
......
definition module iTasks.Internal.Generic.Visualization definition module iTasks.Internal.Generic.Visualization
from StdGeneric import ::UNIT,::PAIR,::EITHER,::CONS,::OBJECT,::RECORD,::FIELD from StdGeneric import ::UNIT,::PAIR,::EITHER,::CONS,::OBJECT,::RECORD,::FIELD
from Text.JSON import :: JSONNode from Text.GenJSON import :: JSONNode
from Text.HTML import :: HtmlTag from Text.HTML import :: HtmlTag
from Data.Maybe import :: Maybe from Data.Maybe import :: Maybe
from Data.Either import :: Either from Data.Either import :: Either
......
...@@ -5,7 +5,7 @@ import Data.Maybe, Data.Either, Data.Functor ...@@ -5,7 +5,7 @@ import Data.Maybe, Data.Either, Data.Functor
from Data.Map import :: Map (..) from Data.Map import :: Map (..)
import qualified Data.Map as DM import qualified Data.Map as DM
import qualified Data.List as DL import qualified Data.List as DL
import Text, Text.JSON, Text.HTML import Text, Text.GenJSON, Text.HTML
import System.Time import System.Time
import iTasks.Internal.Util import iTasks.Internal.Util
......
...@@ -2,7 +2,7 @@ implementation module iTasks.Internal.HtmlUtil ...@@ -2,7 +2,7 @@ implementation module iTasks.Internal.HtmlUtil
from Data.Map import :: Map from Data.Map import :: Map
import qualified Data.Map as DM import qualified Data.Map as DM
import Text.HTML, Text.JSON, Text, Internet.HTTP, System.OS import Text.HTML, Text.GenJSON, Text, Internet.HTTP, System.OS
import StdList, StdBool import StdList, StdBool
embeddedStyle :: HtmlTag embeddedStyle :: HtmlTag
......
...@@ -8,7 +8,7 @@ from Data.Set import :: Set ...@@ -8,7 +8,7 @@ from Data.Set import :: Set
from Data.Queue import :: Queue from Data.Queue import :: Queue
from StdFile import class FileSystem from StdFile import class FileSystem
from System.Time import :: Timestamp from System.Time import :: Timestamp
from Text.JSON import :: JSONNode from Text.GenJSON import :: JSONNode
from System.Process import :: ProcessHandle, :: ProcessIO from System.Process import :: ProcessHandle, :: ProcessIO
from iTasks.Engine import :: EngineOptions from iTasks.Engine import :: EngineOptions
from iTasks.UI.Definition import :: UI, :: UIType from iTasks.UI.Definition import :: UI, :: UIType
......
...@@ -5,7 +5,7 @@ from Data.Map import :: Map ...@@ -5,7 +5,7 @@ from Data.Map import :: Map
from Data.Maybe import :: Maybe from Data.Maybe import :: Maybe
from Data.Error import :: MaybeError(..), :: MaybeErrorString(..) from Data.Error import :: MaybeError(..), :: MaybeErrorString(..)
from System.Time import :: Timestamp, time from System.Time import :: Timestamp, time
from Text.JSON import :: JSONNode from Text.GenJSON import :: JSONNode
from iTasks.WF.Definition import :: TaskId, :: InstanceNo, :: TaskNo from iTasks.WF.Definition import :: TaskId, :: InstanceNo, :: TaskNo
from iTasks.WF.Combinators.Core import :: TaskListItem, :: ParallelTaskType from iTasks.WF.Combinators.Core import :: TaskListItem, :: ParallelTaskType
from iTasks.Extensions.DateTime import :: Time, :: Date, :: DateTime, toTime, toDate from iTasks.Extensions.DateTime import :: Time, :: Date, :: DateTime, toTime, toDate
...@@ -21,7 +21,7 @@ from StdOrdList import sortBy ...@@ -21,7 +21,7 @@ from StdOrdList import sortBy
from TCPIP import :: TCP_Listener, :: TCP_Listener_, :: TCP_RChannel_, :: TCP_SChannel_, :: TCP_DuplexChannel, :: DuplexChannel, :: IPAddress, :: ByteSeq from TCPIP import :: TCP_Listener, :: TCP_Listener_, :: TCP_RChannel_, :: TCP_SChannel_, :: TCP_DuplexChannel, :: DuplexChannel, :: IPAddress, :: ByteSeq
import System.Time, StdList, Text.Encodings.Base64, _SystemArray, StdBool, StdTuple, Text.JSON, Data.Error, Math.Random import System.Time, StdList, Text.Encodings.Base64, _SystemArray, StdBool, StdTuple, Text.GenJSON, Data.Error, Math.Random
import iTasks.Internal.TaskStore, iTasks.Internal.Util import iTasks.Internal.TaskStore, iTasks.Internal.Util
import iTasks.Internal.Serialization import iTasks.Internal.Serialization
import iTasks.Internal.SDS import iTasks.Internal.SDS
......
definition module iTasks.Internal.SDS definition module iTasks.Internal.SDS
import Data.Generics.GenEq import Data.GenEq
import System.FilePath, Data.Maybe, Data.Either, Data.Error, System.Time, Text.JSON import System.FilePath, Data.Maybe, Data.Either, Data.Error, System.Time, Text.GenJSON
from Data.Set import :: Set from Data.Set import :: Set
from iTasks.Internal.IWorld import :: IWorld from iTasks.Internal.IWorld import :: IWorld
from iTasks.Internal.Generic.Visualization import :: TextFormat from iTasks.Internal.Generic.Visualization import :: TextFormat
......
...@@ -4,7 +4,7 @@ from StdFunc import const ...@@ -4,7 +4,7 @@ from StdFunc import const
import StdString, StdTuple, StdMisc, StdList, StdBool import StdString, StdTuple, StdMisc, StdList, StdBool
from Data.Map import :: Map from Data.Map import :: Map
import qualified Data.Map as DM import qualified Data.Map as DM
import Data.Error, Data.Func, Data.Tuple, System.OS, System.Time, Text, Text.JSON import Data.Error, Data.Func, Data.Tuple, System.OS, System.Time, Text, Text.GenJSON
import qualified Data.Set as Set import qualified Data.Set as Set
import iTasks.Engine import iTasks.Engine
import iTasks.Internal.IWorld import iTasks.Internal.IWorld
......
...@@ -11,15 +11,15 @@ from Data.Queue import :: Queue ...@@ -11,15 +11,15 @@ from Data.Queue import :: Queue
from Data.Maybe import :: Maybe from Data.Maybe import :: Maybe
from Data.Error import :: MaybeError, :: MaybeErrorString from Data.Error import :: MaybeError, :: MaybeErrorString
from Data.Map import :: Map from Data.Map import :: Map
from Text.JSON import :: JSONNode from Text.GenJSON import :: JSONNode
from iTasks.WF.Definition import class iTask from iTasks.WF.Definition import class iTask
from iTasks.UI.Editor import :: Editor from iTasks.UI.Editor import :: Editor
from iTasks.UI.Editor.Generic import generic gEditor from iTasks.UI.Editor.Generic import generic gEditor
from iTasks.Internal.Generic.Visualization import generic gText, :: TextFormat from iTasks.Internal.Generic.Visualization import generic gText, :: TextFormat
from iTasks.Internal.Generic.Defaults import generic gDefault from iTasks.Internal.Generic.Defaults import generic gDefault
from Text.JSON import generic JSONEncode, generic JSONDecode from Text.GenJSON import generic JSONEncode, generic JSONDecode
from Data.Generics.GenEq import generic gEq from Data.GenEq import generic gEq
from iTasks.SDS.Definition import :: SDS from iTasks.SDS.Definition import :: SDS
......
...@@ -19,7 +19,7 @@ import StdString, StdList ...@@ -19,7 +19,7 @@ import StdString, StdList
from Data.Map import qualified get, fromList from Data.Map import qualified get, fromList
from Data.Map import fromList from Data.Map import fromList
import Data.Maybe, Data.Error import Data.Maybe, Data.Error
import Text.JSON, Text.URI import Text.GenJSON, Text.URI
import StdMisc, graph_to_sapl_string import StdMisc, graph_to_sapl_string
import Data.Queue, Data.Functor import Data.Queue, Data.Functor
......
definition module iTasks.Internal.Serialization definition module iTasks.Internal.Serialization
from Text.JSON import generic JSONEncode, generic JSONDecode, ::JSONNode from Text.GenJSON import generic JSONEncode, generic JSONDecode, ::JSONNode
from Data.Error import ::MaybeError, ::MaybeErrorString from Data.Error import ::MaybeError, ::MaybeErrorString
from Data.Maybe import ::Maybe from Data.Maybe import ::Maybe
......
...@@ -5,7 +5,7 @@ import dynamic_string ...@@ -5,7 +5,7 @@ import dynamic_string
import Text.Encodings.Base64 import Text.Encodings.Base64
import Data.Error import Data.Error
import Text.JSON import Text.GenJSON
import Data.Maybe import Data.Maybe
serialize :: !a -> *String serialize :: !a -> *String
......
...@@ -9,7 +9,7 @@ definition module iTasks.Internal.Store ...@@ -9,7 +9,7 @@ definition module iTasks.Internal.Store
* Dynamics are generally more expensive, so only when really necessary (for example to store tasks or * Dynamics are generally more expensive, so only when really necessary (for example to store tasks or
* functions) should they be used. * functions) should they be used.
*/ */
from Text.JSON import generic JSONEncode, generic JSONDecode, :: JSONNode from Text.GenJSON import generic JSONEncode, generic JSONDecode, :: JSONNode
from Data.Maybe import :: Maybe from Data.Maybe import :: Maybe
from Data.Error import :: MaybeError, :: MaybeErrorString from Data.Error import :: MaybeError, :: MaybeErrorString
from System.Time import :: Timestamp from System.Time import :: Timestamp
...@@ -21,7 +21,7 @@ from iTasks.UI.Editor import :: Editor, :: EditMask, :: Masked, :: VSt ...@@ -21,7 +21,7 @@ from iTasks.UI.Editor import :: Editor, :: EditMask, :: Masked, :: VSt
from iTasks.UI.Editor.Generic import generic gEditor from iTasks.UI.Editor.Generic import generic gEditor
from iTasks.Internal.Generic.Visualization import generic gText, :: TextFormat(..), toMultiLineText from iTasks.Internal.Generic.Visualization import generic gText, :: TextFormat(..), toMultiLineText
from iTasks.Internal.Generic.Defaults import generic gDefault from iTasks.Internal.Generic.Defaults import generic gDefault
from Data.Generics.GenEq import generic gEq from Data.GenEq import generic gEq