minilight-0.4.0: src/Control/Lens/TH/Rules.hs

module Control.Lens.TH.Rules where

import Control.Lens
import Language.Haskell.TH

-- | Custom rules of the lens. All lens are prefixed by '_'.
lensRules_ :: LensRules
lensRules_ =
  lensRules & lensField .~ \_ _ n -> [TopName (mkName ('_' : nameBase n))]