Hlinting
This commit is contained in:
@@ -60,7 +60,7 @@ crystalLine a b = PS
|
||||
up = vNormal left
|
||||
|
||||
windowLineType :: Point2 -> Point2 -> PSType
|
||||
windowLineType a b = PutLineBlock baseWindowPane 8 8 a b
|
||||
windowLineType = PutLineBlock baseWindowPane 8 8
|
||||
|
||||
baseBlockPane :: Wall
|
||||
baseBlockPane = Block
|
||||
|
||||
Reference in New Issue
Block a user