Comment out DeriveAnyClass extensions

2025-10-19 21:50:43 +01:00
parent b8f6a29e28
commit 2056d8ba0e
91 changed files with 356 additions and 359 deletions
@@ -56,7 +56,7 @@ followImpulse cid w = \case
        tcr <- w ^? cWorld . lWorld . creatures . ix i
        return $ followImpulse cid w (doCrImp f tcr)
    MvForward -> crup $ crMvForward speed (w ^. cWorld . lWorld)
-    MvTurnToward _ _ _ p ->
+    MvTurnToward p ->
        crup $
            creatureTurnToward p (turnRad $ safeAngleVV (p -.- cpos) (unitVectorAtAngle cdir))
  where