Add external Trie library before using Tries for terminal commands

src/Dodge/Data/Terminal.hs

@@ -8,6 +8,7 @@ module Dodge.Data.Terminal (
     module Dodge.Data.Terminal.Status,
 ) where
 
+import qualified Data.ListTrie.Patricia.Map.Enum as PT
 import Sound.Data
 import Color
 import Control.Lens
@@ -30,7 +31,7 @@ data Terminal = Terminal
     , _tmExternalColor :: Color
     , _tmDisplayedLines :: [(String, Color)]
     , _tmFutureLines :: [TerminalLine]
-    , _tmScrollCommands :: [TerminalCommand]
+    , _tmCommands :: [TerminalCommand]
     , _tmDeathEffect :: TmWdWd
     , _tmStatus :: TerminalStatus
     , _tmCommandHistory :: [String]
@@ -76,10 +77,10 @@ data TerminalCommand = TerminalCommand
     , _tcEffect :: TerminalCommandEffect -- Terminal -> World -> EffectArguments
     }
 
---data TCom = TCom
---    { _tcomHelp :: String
---    , _tcomArgs :: Trie Char [TerminalLine]
---    }
+data TCom = TCom
+    { _tcomHelp :: String
+    , _tcomArgs :: PT.TrieMap Char [TerminalLine]
+    }
 
 data TmWdWd
     = TmWdId