Split Dodge.Base

2022-06-19 11:34:59 +01:00
parent 6cc29813d8
commit df1f3ad6b0
15 changed files with 106 additions and 88 deletions
@@ -2,12 +2,13 @@
 module Dodge.Terminal where
 import Dodge.Data
 import Dodge.Default
-import Dodge.Base
+--import Dodge.Base
 import Dodge.SoundLogic
 import Color
 import Justify
 import LensHelp
 import Sound.Data
+import ListHelp (find,safeUncons,safeHead)

 import Data.Char
 import Data.Maybe
@@ -15,7 +16,6 @@ import qualified Data.Map.Strict as M
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Text as T
 --import Text.Read
-import Data.List (find)

 quitCommand :: TerminalCommand
 quitCommand = TerminalCommand