Commit before explicit terminals list

2022-06-05 12:05:16 +01:00
parent 0afbb39aaf
commit a6141fd79a
4 changed files with 6 additions and 6 deletions
@@ -42,7 +42,7 @@ putTerminal col f = ps0PushPSw PutNothing $ \_ _ -> Just $
    $ \pl -> Just $ pt0 (PutMachine col (reverse $ square 10) defaultMachine
    { _mcDraw = noPic . terminalShape col
    , _mcHP = 100
-    , _mcUpdate = basicMachineUpdate $ machineAddSound fridgeHumS (\_ -> id)
+    , _mcUpdate = basicMachineUpdate $ machineAddSound fridgeHumS (const id)
    , _mcDeath = \mc -> (buttons . at (fromJust (_plMID pl)) .~ Nothing)
        . makeExplosionAt (_mcPos mc)
    })