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

Trippy flamer

Browse Source
This commit is contained in:
justin
2021-08-28 14:33:23 +01:00
parent 882a8e9824
commit 3a8b28a916
10 changed files with 81 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent.hs
+1 -1
View File
@@ -61,4 +61,4 @@ damCrsOnLine dam p1 p2 = over creatures (IM.map damIfOnLine)
| otherwise = cr
tempLightForAt :: Int -> Point2 -> World -> World
tempLightForAt i p w = w & tempLightSources %~ (:) (tLightAt i p)
tempLightForAt i p w = w & tempLightSources %~ (tLightAt i p :)