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

Cleanup

Browse Source
This commit is contained in:
justin
2022-06-09 11:34:34 +01:00
parent e4e7122070
commit 5aa55b3c86
39 changed files with 0 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Block.hs
-2
View File
@@ -13,8 +13,6 @@ import Data.Function
import qualified Data.IntSet as IS
import qualified Data.IntMap.Strict as IM
import Control.Lens
import Control.Monad
import Control.Monad.State
splinterBlock :: Block -> World -> World
splinterBlock bl w = foldr unshadowBlock w (_blShadows bl) -- foldr shiftTowardCen w (_blWallIDs bl)