Commit 3d2313a7 authored by Camil Staps's avatar Camil Staps 🍃

Add missing imports of Data.Map.GenJSON

parent d16d056f
Pipeline #19517 passed with stage
in 4 minutes and 54 seconds
......@@ -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
......
......@@ -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
......
......@@ -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 ()
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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 = []
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
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