[Haskell-cafe] Lens with merge (Semigroup)