Switch from HashMap to Map
This commit is contained in:
parent
42e9f6d462
commit
1b6dc379fb
3 changed files with 5 additions and 5 deletions
|
|
@ -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:
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@ 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
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue