justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Separate out input datatype

Browse Source
This commit is contained in:
justin
2022-10-29 11:36:57 +01:00
parent 82e2a5a234
commit af6cdff063
19 changed files with 160 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+2 -2
View File
@@ -7,7 +7,7 @@ import ShortShow
testStringInit :: Universe -> [String]
testStringInit u =
[ show $ u ^. uvWorld . scrollAmount
, show $ u ^. uvWorld . previousScrollAmount
[ show $ u ^. uvWorld . input . scrollAmount
, show $ u ^. uvWorld . input . previousScrollAmount
, shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
]