Cleanup

src/Dodge/TestString.hs

@@ -1,7 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where
 
-import qualified SDL as SDL
+import qualified SDL
 import Linear
 import Dodge.ListDisplayParams
 import Dodge.SelectionSections
@@ -27,7 +27,7 @@ import qualified Data.Map.Strict as M
 
 testStringInit :: Universe -> [String]
 testStringInit u = 
-    (map show $ M.toList $ u ^. uvWorld . input . pressedKeys)
+    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