Cleanup warnings

src/Dodge/Room/Placement.hs

@@ -12,12 +12,16 @@ import Geometry
 import Data.List
 import Control.Lens
 
-
+putLamp :: PSType
 putLamp = PutCrit lamp
 
 singleBlock :: Point2 -> [Placement]
-singleBlock a = [sPS a 0 $ PutBlock [5,20,20] (greyN 0.5)
-                                        $ reverse $ rectNSWE 10 (-10) (-10) 10]
+singleBlock a = 
+    [sPS a 0 
+        $ PutBlock [5,20,20] (greyN 0.5)
+        $ reverse 
+        $ rectNSWE 10 (-10) (-10) 10
+    ]
 {-
 Places a line of blocks between two points.
 Width 9, also extends out from each point by 9.
@@ -128,20 +132,45 @@ subZipWith f g xs ys =
     let (zs,ws) = partition f xs
     in  zipWith g zs ys ++ ws
 
+isPutID :: Int -> Placement -> Bool
 isPutID i ps = Just i == ps ^? placementSpot . psType . putID
 
+putBlockRect
+    :: Float
+    -> Float
+    -> Float
+    -> Float
+    -> [Placement]
 putBlockRect a x b y =  [ blockLine (a,b) (a,y)
                         , blockLine (a,y) (x,y)
                         , blockLine (x,y) (x,b)
                         , blockLine (x,b) (a,b)
                         ]
+putBlockV
+    :: Float
+    -> Float
+    -> Float
+    -> Float
+    -> [Placement]
 putBlockV a x b y = [ blockLine (a,b) (a,y)
                     , blockLine (x,b) (a,b)
                     ]
+putBlockC
+    :: Float
+    -> Float
+    -> Float
+    -> Float
+    -> [Placement]
 putBlockC a x b y = [ blockLine (a,b) (a,y)
                     , blockLine (x,b) (a,b)
                     , blockLine (a,y) (x,y)
                     ]
+putBlockN
+    :: Float
+    -> Float
+    -> Float
+    -> Float
+    -> [Placement]
 putBlockN a x b y = [ blockLine (a,b) (a,y)
                     , blockLine (x,b) (a,b)
                     , blockLine (x,y) (x,b)