Move machine update into outside function

2022-07-14 21:01:53 +01:00
parent ad33ddd569
commit 5463328d41
13 changed files with 130 additions and 92 deletions
@@ -30,8 +30,8 @@ import Data.Maybe
 putLasTurret :: Float -> Placement
 putLasTurret rotSpeed = sps0 $ PutMachine (reverse $ square wdth) (defaultMachine & mcColor .~ blue)
    { _mcDraw = drawTurret
-    , _mcUpdate = updateTurret rotSpeed
-    , _mcType = lasTurret
+--    , _mcUpdate = updateTurret rotSpeed
+    , _mcType = lasTurret & tuTurnSpeed .~ rotSpeed
    , _mcHP = 50000
    }
 lasTurret :: MachineType