Switch from HashMap to Map

This commit is contained in:
Joscha 2020-02-08 20:46:26 +00:00
parent 42e9f6d462
commit 1b6dc379fb
3 changed files with 5 additions and 5 deletions

View file

@ -16,8 +16,8 @@ dependencies:
- base >= 4.7 && < 5 - base >= 4.7 && < 5
- aeson - aeson
- async - async
- containers
- text - text
- unordered-containers
- websockets - websockets
library: library:

View file

@ -21,7 +21,7 @@ import Control.Monad
import Data.Aeson import Data.Aeson
import Data.Aeson.Types import Data.Aeson.Types
import Data.Char import Data.Char
import qualified Data.HashMap.Strict as Map import qualified Data.Map.Strict as Map
import qualified Data.Text as T import qualified Data.Text as T
import GHC.Generics import GHC.Generics
@ -35,7 +35,7 @@ data Node = Node
, nodeEdit :: !Bool , nodeEdit :: !Bool
, nodeDelete :: !Bool , nodeDelete :: !Bool
, nodeReply :: !Bool , nodeReply :: !Bool
, nodeChildren :: !(Map.HashMap NodeId Node) , nodeChildren :: !(Map.Map NodeId Node)
} deriving (Show, Generic) } deriving (Show, Generic)
nodeOptions :: Options nodeOptions :: Options

View file

@ -5,8 +5,8 @@ module Forest.Tree
, initialNode , initialNode
) where ) where
import qualified Data.HashMap.Strict as Map import qualified Data.Map.Strict as Map
import qualified Data.Text as T import qualified Data.Text as T
import Forest.Api import Forest.Api