Move main to allow for new executables

2021-08-11 17:54:48 +02:00
parent b74bb45a4c
commit 4bbe5d0cf1
64 changed files with 521 additions and 345 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 ((V2 0 0) -.- rotateV (pi-a) p , 0) 
-    $ shiftRoomBy ((V2 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