Cleanup warnings

src/Dodge/Room/Teleport.hs

@@ -9,7 +9,7 @@ import Dodge.Base
 import Dodge.Room.Data
 import Dodge.Room.Procedural
 import Dodge.Room.Placement
-import Dodge.Layout
+--import Dodge.Layout
 import Dodge.LevelGen.Data
 import Geometry
 import Picture
@@ -44,5 +44,4 @@ telRoomLev i = do
     levelReset pp w
         | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) $ startNewGame w
         | otherwise = w
-    ppPoly pp = map (+.+ _ppPos pp) ppFootprint
     startNewGame w = w & worldTriggers %~ S.insert (ResetLevel i)