Add missing imports of Data.Map.GenJSON

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
 

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
 

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 ()

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

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

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

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
 

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
 

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
 

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
 

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

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 = []

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
 

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

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

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