Further strictifying

2021-07-30 00:23:02 +02:00
parent bd8ef3f416
commit 2d8b27746c
33 changed files with 228 additions and 211 deletions
@@ -59,8 +59,8 @@ This is intended to work when the external point is an outgoing link from anothe
 shiftRoomToLink :: (Point2,Float) -> Room -> Room
 shiftRoomToLink l r 
    = shiftRoomBy l 
-    . shiftRoomBy ((0,0) -.- rotateV (pi-a) p , 0) 
-    $ shiftRoomBy ((0,0)                      ,pi-a)  
+    . shiftRoomBy ((V2 0 0) -.- rotateV (pi-a) p , 0) 
+    $ shiftRoomBy ((V2 0 0)                      ,pi-a)  
    r
  where 
    (p,a) = last $ _rmLinks r