Hlinting

2021-04-27 11:45:43 +02:00
parent f8351fb150
commit 64b5b9e2a5
34 changed files with 974 additions and 761 deletions
@@ -25,10 +25,10 @@ roomOctogon x = Room
    , _rmPath  = [((0,x),(0,-(x+40)))
                 ,((0,-(x+40)),(0,x))]
    , _rmPS = 
-        [PS (fx,fx) 0 $ putLamp
-        ,PS (-fx,fx) 0 $ putLamp
-        ,PS (fx,-fx) 0 $ putLamp
-        ,PS (-fx,-fx) 0 $ putLamp
+        [PS (fx,fx)   0 putLamp
+        ,PS (-fx,fx)  0 putLamp
+        ,PS (fx,-fx)  0 putLamp
+        ,PS (-fx,-fx) 0 putLamp
        ,crystalLine (-x,x/2) (negate (x/2), x)
        ,crystalLine (x,x/2)  (x/2, x)
        ,crystalLine (x/2,-x) (x,negate (x/2))