From 3d2313a7b104f217c02042085459cfc93705e2e5 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Fri, 1 Mar 2019 10:36:23 +0100 Subject: [PATCH] Add missing imports of Data.Map.GenJSON --- Examples/Applications/Incidone/Incidone/Integration/Asterisk.icl | 1 + .../Applications/Incidone/Incidone/OP/ContactManagementTasks.icl | 1 + .../Incidone/Incidone/OP/IncidentManagementTasks.icl | 1 + Examples/Applications/Incidone/Incidone/OP/SDSs.icl | 1 + Examples/Applications/Incidone/Incidone/Util/TaskPatterns.icl | 1 + .../Applications/ShipAdventure/C2/Apps/ShipAdventure/Core.icl | 1 + .../Applications/ShipAdventure/C2/Apps/ShipAdventure/Editor.icl | 1 + .../ShipAdventure/C2/Apps/ShipAdventure/Scripting.icl | 1 + .../Applications/ShipAdventure/C2/Apps/ShipAdventure/Types.icl | 1 + Examples/Applications/ShipAdventure/C2/Framework/Entity.icl | 1 + .../Applications/ShipAdventure/C2/Framework/MapEnvironment.icl | 1 + Examples/Applications/ShipAdventure/C2/Navy/Roles/DOff.icl | 1 + Libraries/iTasks/Extensions/FileCollection.icl | 1 + Libraries/iTasks/Extensions/Web.icl | 1 + Libraries/iTasks/Internal/Distributed/Instance.icl | 1 + Tools/CodeQualityMonitor.icl | 1 + 16 files changed, 16 insertions(+) diff --git a/Examples/Applications/Incidone/Incidone/Integration/Asterisk.icl b/Examples/Applications/Incidone/Incidone/Integration/Asterisk.icl index ab27dd7b0..c64fbceec 100644 --- a/Examples/Applications/Incidone/Incidone/Integration/Asterisk.icl +++ b/Examples/Applications/Incidone/Incidone/Integration/Asterisk.icl @@ -8,6 +8,7 @@ import Incidone.OP.CommunicationManagementTasks import Incidone.Util.TaskPatterns import Text, Data.Either import qualified Data.Map as DM +import Data.Map.GenJSON :: AsteriskEvent :== Map String String // Simple key/value mapping diff --git a/Examples/Applications/Incidone/Incidone/OP/ContactManagementTasks.icl b/Examples/Applications/Incidone/Incidone/OP/ContactManagementTasks.icl index 1c8925362..54d615d1f 100644 --- a/Examples/Applications/Incidone/Incidone/OP/ContactManagementTasks.icl +++ b/Examples/Applications/Incidone/Incidone/OP/ContactManagementTasks.icl @@ -9,6 +9,7 @@ import Incidone.DeviceBased.VideoWall import Incidone.Extensions.CrewLists //For demo import qualified Data.Map as DM +import Data.Map.GenJSON import Text, Text.HTML, Data.Either, Data.Functor import iTasks.UI.Editor.Controls diff --git a/Examples/Applications/Incidone/Incidone/OP/IncidentManagementTasks.icl b/Examples/Applications/Incidone/Incidone/OP/IncidentManagementTasks.icl index da8f1d800..1119fba71 100644 --- a/Examples/Applications/Incidone/Incidone/OP/IncidentManagementTasks.icl +++ b/Examples/Applications/Incidone/Incidone/OP/IncidentManagementTasks.icl @@ -11,6 +11,7 @@ import Incidone.DeviceBased.VideoWall import Incidone.ActionManagementTasks import Data.List, Data.Either import qualified Data.Map as DM +import Data.Map.GenJSON import Text.HTML openIncidentInWorkspace :: Workspace IncidentNo -> Task () diff --git a/Examples/Applications/Incidone/Incidone/OP/SDSs.icl b/Examples/Applications/Incidone/Incidone/OP/SDSs.icl index 352403073..877a1fee2 100644 --- a/Examples/Applications/Incidone/Incidone/OP/SDSs.icl +++ b/Examples/Applications/Incidone/Incidone/OP/SDSs.icl @@ -2,6 +2,7 @@ implementation module Incidone.OP.SDSs import iTasks, iTasks.Extensions.SQLDatabase import qualified Data.Map as DM +import Data.Map.GenJSON import Incidone.Configuration import Incidone.OP.Concepts, Incidone.OP.Conversions import Incidone.Util.SQLSDS diff --git a/Examples/Applications/Incidone/Incidone/Util/TaskPatterns.icl b/Examples/Applications/Incidone/Incidone/Util/TaskPatterns.icl index c151987c5..cce529b44 100644 --- a/Examples/Applications/Incidone/Incidone/Util/TaskPatterns.icl +++ b/Examples/Applications/Incidone/Incidone/Util/TaskPatterns.icl @@ -5,6 +5,7 @@ import iTasks.UI.Definition import Incidone.OP.IncidentManagementTasks, Incidone.OP.ContactManagementTasks import Text, Data.Functor, Data.Either, Data.Maybe import qualified Data.Map as DM +import Data.Map.GenJSON import StdMisc //FIXME diff --git a/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Core.icl b/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Core.icl index f2cfb7922..1b40765e3 100644 --- a/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Core.icl +++ b/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Core.icl @@ -5,6 +5,7 @@ import iTasks.Extensions.SVG.SVGEditor //import Graphics.Scalable import qualified Data.List as DL import qualified Data.Map as DM +import Data.Map.GenJSON import qualified Data.IntMap.Strict as DIS import qualified Data.Set as DS from Data.Func import mapSt diff --git a/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Editor.icl b/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Editor.icl index 0674701f4..dc7a7cc0a 100644 --- a/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Editor.icl +++ b/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Editor.icl @@ -13,6 +13,7 @@ import C2.Framework.MapEnvironment import C2.Apps.ShipAdventure.Types import C2.Apps.ShipAdventure.Images import qualified Data.Map as DM +import Data.Map.GenJSON import qualified Data.IntMap.Strict as DIS import qualified Data.Set as DS diff --git a/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Scripting.icl b/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Scripting.icl index 7a4ce981a..a850b8bce 100644 --- a/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Scripting.icl +++ b/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Scripting.icl @@ -7,6 +7,7 @@ import C2.Apps.ShipAdventure.PathFinding import C2.Apps.ShipAdventure.Util import qualified Data.IntMap.Strict as DIS import qualified Data.Map as DM +import Data.Map.GenJSON // scripted simulation diff --git a/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Types.icl b/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Types.icl index cc8a37390..459317b9e 100644 --- a/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Types.icl +++ b/Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Types.icl @@ -12,6 +12,7 @@ import StdArray import Data.Data, Data.Either import qualified Data.IntMap.Strict as DIS import qualified Data.Map as DM +import Data.Map.GenJSON import qualified Data.Set as DS import Text.HTML diff --git a/Examples/Applications/ShipAdventure/C2/Framework/Entity.icl b/Examples/Applications/ShipAdventure/C2/Framework/Entity.icl index 61b8ad6d1..187a97762 100644 --- a/Examples/Applications/ShipAdventure/C2/Framework/Entity.icl +++ b/Examples/Applications/ShipAdventure/C2/Framework/Entity.icl @@ -4,6 +4,7 @@ import iTasks import StdReal, StdOverloaded import C2.Framework.GeoRoutines import qualified Data.Map as DM +import Data.Map.GenJSON derive class iTask Entity, Position, RelPos, MovingPos, Structure, RectStruct, Behaviour, Angle diff --git a/Examples/Applications/ShipAdventure/C2/Framework/MapEnvironment.icl b/Examples/Applications/ShipAdventure/C2/Framework/MapEnvironment.icl index adf23cb32..7336cf85d 100644 --- a/Examples/Applications/ShipAdventure/C2/Framework/MapEnvironment.icl +++ b/Examples/Applications/ShipAdventure/C2/Framework/MapEnvironment.icl @@ -9,6 +9,7 @@ import iTasks.Extensions.Admin.TonicAdmin import iTasks.Extensions.DateTime import qualified Data.Map as DM from Data.Map import :: Map, instance Functor (Map k) +import Data.Map.GenJSON import qualified Data.IntMap.Strict as DIS from Data.IntMap.Strict import :: IntMap import qualified Data.Heap as DH diff --git a/Examples/Applications/ShipAdventure/C2/Navy/Roles/DOff.icl b/Examples/Applications/ShipAdventure/C2/Navy/Roles/DOff.icl index 65f389945..aebedbd8d 100644 --- a/Examples/Applications/ShipAdventure/C2/Navy/Roles/DOff.icl +++ b/Examples/Applications/ShipAdventure/C2/Navy/Roles/DOff.icl @@ -8,6 +8,7 @@ import qualified Data.Set as DS from Data.IntMap.Strict import instance Functor IntMap import qualified Data.IntMap.Strict as DIS import C2.Apps.ShipAdventure.Editor +import Data.Map.GenJSON dOffRegisterEntity :: [User -> Task Entity] dOffRegisterEntity = [] diff --git a/Libraries/iTasks/Extensions/FileCollection.icl b/Libraries/iTasks/Extensions/FileCollection.icl index 695c226bd..3943f0761 100644 --- a/Libraries/iTasks/Extensions/FileCollection.icl +++ b/Libraries/iTasks/Extensions/FileCollection.icl @@ -10,6 +10,7 @@ import iTasks.Internal.Util import StdFile from Data.Map import :: Map import qualified Data.Map as DM +import Data.Map.GenJSON import Data.Error, Data.Functor, Data.Maybe, Text import System.Directory, System.File, System.FilePath, System.OS diff --git a/Libraries/iTasks/Extensions/Web.icl b/Libraries/iTasks/Extensions/Web.icl index 4c1691ae5..33cc88168 100644 --- a/Libraries/iTasks/Extensions/Web.icl +++ b/Libraries/iTasks/Extensions/Web.icl @@ -11,6 +11,7 @@ import iTasks.Extensions.Document import iTasks.Extensions.TextFile import qualified Data.Map as DM +import Data.Map.GenJSON import qualified Data.List as DL //* URL diff --git a/Libraries/iTasks/Internal/Distributed/Instance.icl b/Libraries/iTasks/Internal/Distributed/Instance.icl index 431f88885..6a27df832 100644 --- a/Libraries/iTasks/Internal/Distributed/Instance.icl +++ b/Libraries/iTasks/Internal/Distributed/Instance.icl @@ -3,6 +3,7 @@ implementation module iTasks.Internal.Distributed.Instance import iTasks from Text import class Text, instance Text String import qualified Data.Map as DM +import Data.Map.GenJSON import qualified Text as T import Text.Encodings.Base64 import iTasks.Extensions.Distributed._Formatter diff --git a/Tools/CodeQualityMonitor.icl b/Tools/CodeQualityMonitor.icl index 6f3f628b6..fd998b22c 100644 --- a/Tools/CodeQualityMonitor.icl +++ b/Tools/CodeQualityMonitor.icl @@ -8,6 +8,7 @@ import System.OS import Text, Text.HTML import Data.List, Data.Func import qualified Data.Map as DM +import Data.Map.GenJSON import Testing.TestEvents import iTasks -- GitLab