9 lines
238 B
Haskell
9 lines
238 B
Haskell
module LensUtil where
|
|
|
|
import Prelude
|
|
import Control.Lens
|
|
import Language.Haskell.TH
|
|
|
|
makeLensesCustom :: Name -> DecsQ
|
|
makeLensesCustom = makeLensesWith $ lensRules
|
|
& lensField .~ \_ _ name -> [TopName (mkName $ nameBase name ++ "L")]
|