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

Fix blink bug

Browse Source
This commit is contained in:
justin
2022-10-19 23:17:26 +01:00
parent 4ad19aa19d
commit 21dc670c9f
13 changed files with 353 additions and 312 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+10 -7
View File
@@ -2,15 +2,18 @@ module Dodge.TestString where
import Dodge.Data.Universe
import Control.Lens
import Data.Maybe
--import Data.Maybe
import ShortShow
testStringInit :: Universe -> [String]
testStringInit u = [
show $ u ^? uvWorld . hammers . ix DoubleMouseHam
, show $ u ^? uvWorld . cWorld . creatures . ix 0 . crLeftInvSel . _Just
, fromMaybe "" $ do
i <- u ^? uvWorld . cWorld . creatures . ix 0 . crLeftInvSel . _Just
h <- u ^? uvWorld . cWorld . creatures . ix 0 . crInv . ix i . itUse . leftHammer
return $ show h
shortShow $ u ^?! uvWorld . cWorld . creatures . ix 0 . crPos
]
-- [ show $ u ^? uvWorld . hammers . ix DoubleMouseHam
-- , show $ u ^? uvWorld . cWorld . creatures . ix 0 . crLeftInvSel . _Just
-- , fromMaybe "" $ do
-- i <- u ^? uvWorld . cWorld . creatures . ix 0 . crLeftInvSel . _Just
-- h <- u ^? uvWorld . cWorld . creatures . ix 0 . crInv . ix i . itUse . leftHammer
-- return $ show h
-- ]