18 lines
557 B
Haskell
18 lines
557 B
Haskell
module Dodge.TestString where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.Universe
|
|
--import Data.Maybe
|
|
--import ShortShow
|
|
--import qualified Data.Map.Strict as M
|
|
import qualified IntMapHelp as IM
|
|
|
|
testStringInit :: Universe -> [String]
|
|
testStringInit u =
|
|
[ show $ IM.keys $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crInv ]
|
|
-- [ show $ u ^? uvScreenLayers . _head . scOffset
|
|
-- ]
|
|
-- ++ [ shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
|
|
-- ]
|
|
-- ++ map show (M.toList (u ^. uvWorld . input . pressedKeys))
|