Add missing dependencies, fix arc rendering

src/Dodge/Room/Listed.hs

@@ -0,0 +1,7 @@
+module Dodge.Room.Listed
+    ( roomList
+    ) where
+import Dodge.Room.Data
+
+roomList :: [Room]
+roomList = []

src/Dodge/Room/Start.hs

@@ -27,7 +27,7 @@ startRoom = do
                highPipe 80 (V2  0    (h/3)) (V2  w    (h/2))
             ++ highPipe 40 (V2  0    (h/2)) (V2  w    (h/3))
             ++ highPipe 60 (V2 (w/3)    0 ) (V2 (w/3)  h   )
-        theLamp = sPS (V2 (w/2) (h/2)) 0 $ putColorLamp (V3 0.75 0.25 0.25)
+        theLamp = sPS (V2 (w/2) (h/2)) 0 $ putColorLamp (V3 0.75 0.75 0.75)
     treeFromPost [Left rezBox, Left door] . Right 
         <$> randomiseOutLinks (shiftRoomBy (V2 (-20) (-20),0) 
                 $ roomRectAutoLinks w h & rmPS .~ [fground,theLamp])