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
@@ -55,10 +55,10 @@ corridorN = defaultRoom
    , _rmPS    = []
    , _rmBound = [ rectNSWE 50 30 0 40 ]
    }
-    where lnks = [((V2 20 70)  ,0)
-                 ,((V2 20 10)    ,pi)
+    where lnks = [(V2 20 70  ,0)
+                 ,(V2 20 10  ,pi)
                 ]
-          pth = doublePair ((V2 20 70),(V2 20 10))
+          pth = doublePair (V2 20 70,V2 20 10)

 tEast :: Room
 tEast = defaultRoom