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

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

View file

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