Remove RenderType datatype

src/Dodge/Layout.hs

@@ -123,7 +123,7 @@ wallsFromRooms =
   where
     f i (x,y) = defaultWall {_wlLine = (x,y) , _wlID = i}
 
-floorsFromRooms :: [Room] -> [RenderType]
+floorsFromRooms :: [Room] -> [(Point3,Point3)]
 floorsFromRooms = concatMap (concatMap tToRender . _rmFloor)
 
 divideWall :: Wall -> [Wall]