Use strict tuples for SPics

2024-10-01 01:20:29 +01:00
parent a98ec80f59
commit 5a4f2711c8
17 changed files with 69 additions and 481 deletions
@@ -62,7 +62,9 @@ doDrawing' win pdata u = do
    -- count mutable vectors setup
    layerCounts <- UMV.replicate (numLayers * 6) 0
    -- attempt to poke in parallel
-    let (ws, wp) = wallSPics <> worldSPic cfig u
+    let wswp = wallSPics <> worldSPic cfig u
+        ws = wswp ^. _1
+        wp = wswp ^. _2
    ((nWins, trueNWalls), (nShapeVs, nIndices, nSilIndices)) <-
        MP.bindM3
            (\_ a b -> return (a, b))