16 lines
423 B
Haskell
16 lines
423 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
|
|
|
|
testStringInit :: Universe -> [String]
|
|
testStringInit u =
|
|
[ show $ u ^? uvScreenLayers . _head . scOffset
|
|
]
|
|
++ [ shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
|
|
]
|
|
++ map show (M.toList (u ^. uvWorld . input . pressedKeys))
|