Hlinting

src/Dodge/Room/Teleport.hs

@@ -19,7 +19,10 @@ import Control.Monad.State
 import System.Random
 import qualified Data.Set as S
 
-telRoomLev :: RandomGen g => Int -> State g Room
+telRoomLev 
+    :: RandomGen g
+    => Int          -- ^ Level number to teleport to
+    -> State g Room
 telRoomLev i = do
     w <- state $ randomR (200,300)
     h <- state $ randomR (200,300)
@@ -40,5 +43,5 @@ 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
+    ppPoly pp = map (+.+ _ppPos pp) ppFootprint
     startNewGame w = w & worldTriggers %~ S.insert (ResetLevel i)