Refactor machines

2022-07-24 20:55:44 +01:00
parent d6a94ec4bc
commit 24531b75a1
10 changed files with 110 additions and 59 deletions
@@ -22,7 +22,7 @@ putLasTurret :: Float -> Placement
 putLasTurret rotSpeed = sps0 $ PutMachine (reverse $ square wdth) 
    (defaultMachine 
        & mcColor .~ blue
-        & mcDraw .~ drawTurret
+        & mcDraw .~ MachineDrawTurret
        & mcType .~ (lasTurret & tuTurnSpeed .~ rotSpeed)
        & mcHP .~ 50000
    )