Hlinting
This commit is contained in:
@@ -37,12 +37,12 @@ litCorridor90 = do
|
||||
,((40,h-40),(20,h-40))
|
||||
]
|
||||
, _rmPS =
|
||||
[ PS (20,h-5) 0 $ putLamp
|
||||
[ PS (20,h-5) 0 putLamp
|
||||
, windowLine (0,h-20) (40,h-20)
|
||||
, PS (-50,h-85) 0 $ putLamp
|
||||
, PS (-50,h-85) 0 putLamp
|
||||
, windowLine (0-40,h-60) (0-40,h-100)
|
||||
, PS ( 20,h-40) 0 $ PutID 0
|
||||
, PS (-20,h-80) 0 $ PutID 2
|
||||
, PS ( 20,h-40) 0 $ PutID 0
|
||||
, PS (-20,h-80) 0 $ PutID 2
|
||||
]
|
||||
, _rmBound = poly
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user