myMakeLenses :: Name -> DecsQ
myMakeLenses = makeLensesWith
  ( lensRules & lensField .~ mappingNamer f )
  where
    f name = [name ++ "l"]
myMakeLenses :: Name -> DecsQ
myMakeLenses = makeLensesWith
  ( lensRules & lensField .~ mappingNamer f )
  where
    f name = [name ++ "l"]
myMakeLenses = makeLensesWith
  ( lensRules & lensField .~ mappingNamer f )
  where
    f name = [name ++ "l"]