Remove left click/hotkey item data types

src/Dodge/TestString.hs

@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where
 
+import qualified SDL as SDL
 import Linear
 import Dodge.ListDisplayParams
 import Dodge.SelectionSections
@@ -22,11 +23,11 @@ import qualified Data.Aeson.Encode.Pretty as AEP
 import Control.Lens
 import Dodge.Data.Universe
 import qualified IntMapHelp as IM
+import qualified Data.Map.Strict as M
 
 testStringInit :: Universe -> [String]
 testStringInit u = 
-    [show $ u ^? uvWorld . hud . hudElement . diSections . ix (-1) . ssItems . ix 0 . siWidth
-    ]
+    (map show $ M.toList $ u ^. uvWorld . input . pressedKeys)
 --  fromMaybe mempty $ do
 --        cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
 --        let itms = IM.elems $ cr ^. crInv