Lens Template Haskell data fields with suffix

LensSuffix.hs

import Control.Lens.Internal.FieldTH (makeFieldOptics, LensRules(..))
import Language.Haskell.TH.Syntax (mkName, nameBase)
import Control.Lens.TH (DefName(..), lensRules)

data Field = { a :: Int, b :: Int }

makeFieldOptics lensRules { _fieldToDef = (\_ _ -> (:[]) . TopName . mkName . (++ "L") . nameBase) } ''Field

-- hopefully someone find this useful

Oh, now that I've implemented it myself, I see someone else implemented it as well... 😅

https://hackage.haskell.org/package/brick-0.61/docs/src/Brick.Types.TH.html