Tweak block sounds

src/Dodge/Placement/Instance/Wall.hs

@@ -23,7 +23,7 @@ lowWall ps = ps0j (PutForeground . colorSH col $ upperPrismPoly 30 ps)
 singleBlock :: Point2 -> [Placement]
 singleBlock a = 
     [sPS a 0 
-        $ PutBlock [5,20,20] (greyN 0.5)
+        $ PutBlock StoneBlock [5,20,20] (greyN 0.5)
         $ reverse 
         $ rectNSWE 10 (-10) (-10) 10
     ]
@@ -32,14 +32,14 @@ Places a line of blocks between two points.
 Width 9, also extends out from each point by 9.
  -}
 blockLine :: Point2 -> Point2 -> Placement
-blockLine a b = sps0 $ PutLineBlock baseBlockPane 9 9 a b
+blockLine a b = sps0 $ PutLineBlock baseBlockPane StoneBlock 9 9 a b
 
 {-
 Places an breakable window between two points.
 Width 8, also extends out from each point by 8.
  -}
 windowLine :: Point2 -> Point2 -> Placement
-windowLine a b = sps0 $ PutLineBlock baseWindowPane 8 8 a b
+windowLine a b = sps0 $ PutLineBlock baseWindowPane GlassBlock 8 8 a b
 {-
 Places an unbreakable window between two points.
 Width 7, also extends out from each point by 7.
@@ -70,7 +70,7 @@ wallLine a b = sps0 $ PutWall ps defaultWall
     up   = vNormal left
 
 windowLineType :: Point2 -> Point2 -> PSType
-windowLineType = PutLineBlock baseWindowPane 8 8
+windowLineType = PutLineBlock baseWindowPane GlassBlock 8 8
 
 baseBlockPane :: Wall
 baseBlockPane = defaultWall