Haskell - Kombinieren Sie Ergebnisse aus einzelnen Linsen

Question

Ich versuche, so etwas wie das zu erreichen, folgende:

jsonStr = "{\"a\": \"hello\", 
      \"b\": [\"world\", \"everyone\", \"42\"]}" 
someALens = ... 
someBLens = ... 
combinedJson = jsonStr ... someALens ... someBLens 

als Ergebnis zu erhalten:

combinedJson == ["hello world", "hello everyone", "hello 42"] 

Allerdings habe ich die Kombination Betreiber gewesen bin Das Finden (wie <>~) scheint einen gesetzten Wert zu erfordern, um über eine Linse zu mappen (oder anderweitig zu kombinieren). Wie könnte ich eine zusammengesetzte Linse erstellen, die Werte von mehreren Linsen kombinieren kann?

Answer 1

Wie in den Kommentaren diskutiert, ist die Antwort die eher antiklimaktische jsonStr ^.. (someALens <> someBLens). Zwei Getter mappen in eine Falte. Monoids, unsere Freunde für immer.