Wie man einzelne Werte in großen Objekten auf elegante Weise "ändert"?

Question

Zum Beispiel, ich habe

data ShipDesign = ShipDesign { 
     offense :: Offense 
    , defense :: Defense 
    , maxHealth :: Integer 
    , repairRate :: Integer 
    , stealth :: Integer 
    , radar :: Integer 
    , speed :: Integer 
    , shipType :: String 
    ... 
    } 

Jetzt möchte ich, um die Verteidigung ändern. Die bekannte Art und Weise, dies zu tun ist:

changeDefense :: (Defense -> Defense) -> ShipDesign -> ShipDesign 
changeDefense fDef sd@(ShipDesign o d m rr s r sp st ...) = ShipDesign o (fDef d) m rr s r sp st ... 

, die nicht elegant ist. Besonders in Spielen ist es üblich, nur ein paar Werte pro Schritt zu ändern.

Meine Frage ist: Gibt es eine Bibliothek, Design-Muster oder eine andere Möglichkeit, einen einzelnen Wert auf eine elegante Art und Weise zu ändern?

Answer 1

Ja, können Sie Rekord Update Notation:

changeDefense :: (Defense -> Defense) -> ShipDesign -> ShipDesign 
changeDefense fDef sd = sd { defense = fDef (defense sd) } 

Wie Sie damit arbeiten, die Grenzen der Datensatzaktualisierung Notation selbst aber wird zeigen, und Sie werden etwas stärker wollen. An diesem Punkt sollten Sie beginnen, über lenses zu lernen.

Answer 2

Ich frage mich, warum niemand Objektiv (e) vorgeschlagen?

Ich empfehle diese kurze Einführung von Gabriel Gonzalez: http://www.haskellforall.com/2013/05/program-imperatively-using-haskell.html?m=1

Edit: oh ... Ich las über den letzten Satz. Aber der Vorschlag steht immer noch.