13 lines
356 B
Haskell
13 lines
356 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 =
|
|
[ shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
|
|
] ++ map show (M.toList (u ^. uvWorld . input . pressedKeys))
|