Come "cambiare" singoli valori in oggetti di grandi dimensioni in modo elegante?

Question

Per esempio, io ho

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

Ora voglio cambiare la difesa. Il modo conosciuto per farlo è:

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 ... 

che non è elegante. Soprattutto nei giochi è comune cambiare solo alcuni valori per passo.

La mia domanda è: c'è una biblioteca, un modello di progettazione o un altro modo per modificare un singolo valore in modo più elegante?

Answer 1

Sì, è possibile utilizzare record di aggiornamento notazione:

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

Come si lavora con esso, però, i limiti di aggiornamento notazione Will mostrare se stessi, e si vuole qualcosa di più potente. A quel punto, dovresti iniziare a conoscere lenses.

Answer 2

Mi chiedo perché nessuno ha proposto obiettivi?

Consiglio questo breve introduzione di Gabriel Gonzalez: http://www.haskellforall.com/2013/05/program-imperatively-using-haskell.html?m=1

Edit: oh ... I over letto l'ultima frase. Ma il suggerimento è ancora valido.