Separate placement spot from placement type

2021-11-02 21:12:11 +00:00
parent 59f43a3602
commit 0b058674ea
16 changed files with 77 additions and 85 deletions
@@ -16,7 +16,7 @@ import Data.Either
 damageSensor 
    :: (DamageType -> Either Int Int) -- Left gets sensed, Right does damage
    -> Point2 -> Float -> Placement
-damageSensor damF p r = Placement (PS p r $ PutLS theLS)
+damageSensor damF p r = Placement (PS p r) ( PutLS theLS)
    $ \lsid -> jsps p r $ PutMachine blue (reverse $ square wdth) defaultMachine
        { _mcDraw = sensorSPic 
        , _mcUpdate = sensorUpdate damF