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

Remove parallelization of pokeTopPrism

Browse Source
This commit is contained in:
justin
2022-06-26 14:26:39 +01:00
parent d386b0ea89
commit c3f9dad233
8 changed files with 30 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Link.hs
+4 -1
View File
@@ -86,4 +86,7 @@ shiftLinkBy (pos,rot) = overLnkPosDir f
f (p,r) = (shiftPointBy (pos,rot) p, r + rot)
shiftPathBy :: (Point2,Float) -> (Point2,Point2) -> (Point2,Point2)
shiftPathBy s (p1,p2) = (shiftPointBy s p1, shiftPointBy s p2)
shiftPathBy s (p1,p2) = sp1 `seq` sp2 `seq` (sp1, sp2)
where
sp1 = shiftPointBy s p1
sp2 = shiftPointBy s p2