L_makeLens.hs

{-
dependencies:
- lens
- template-haskell

create all lenses for a record type preponing an l_ instead of removing the underscore
-}

import Control.Lens ((.~), lensRules, lensField, makeLensesWith, DefName(TopName), FieldNamer)
import Language.Haskell.TH (DecsQ, Name, nameBase, mkName)

allLNamer :: FieldNamer
allLNamer _ _ n = pure $ TopName $ mkName ('l': '_' : nameBase n)

makeLLenses :: Name -> DecsQ
makeLLenses = makeLensesWith (lensField .~ allLNamer $ lensRules )