Further strictifying

2021-07-30 00:23:02 +02:00
parent bd8ef3f416
commit 2d8b27746c
33 changed files with 228 additions and 211 deletions
@@ -29,7 +29,7 @@ putLineBlock basePane blockWidth depth a b w = removePathsCrossing a b $ foldr i
    blockCenPs = snd $ evenOddSplit psOnLine
    numBlocks = length blockCenPs
    is = [0.. numBlocks - 1]
-    cornerPoints = 
+    cornerPoints = map toV2
        [(-halfBlockWidth,-depth)   -- goes anticlockwise around the block
        ,(-halfBlockWidth, depth)
        ,( halfBlockWidth, depth)