More strictifiiiying

2021-07-30 01:25:11 +02:00
parent 2d8b27746c
commit 7b7fd302d8
37 changed files with 459 additions and 448 deletions
@@ -42,7 +42,7 @@ mvBlip p col maxt t w pt =
        & ptDraw .~ ( const 
            . setDepth (-0.5)
            . setLayer 1
-            . uncurry translate p 
+            . uncurryV translate p 
            . color (withAlpha (fromIntegral t / fromIntegral maxt) col)
            $ circleSolid 2 )
    )
@@ -64,7 +64,7 @@ mvSonar x p w pt = (w, Just $ pt {_ptDraw = const pic
    crBlips = mapMaybe crBlip $ IM.elems $ _creatures w
    crBlip cr | dist cpos p < r + crad && dist cpos p > r - (crad + 100)
                  = Just $ colHelper (0.5 * (1 - (r - dist cpos p) /100))
-                         $ uncurry translate cpos $ circleSolid crad
+                         $ uncurryV translate cpos $ circleSolid crad
              | otherwise = Nothing
          where crad = _crRad cr
                cpos = _crPos cr