{-# OPTIONS_GHC -Wno-redundant-constraints #-}
module Morley.Util.Lens
( postfixLFields
, makeLensesWith
) where
import Control.Lens (LensRules, lensField, lensRules, makeLensesWith, mappingNamer)
postfixLFields :: LensRules
postfixLFields :: LensRules
postfixLFields = LensRules
lensRules LensRules -> (LensRules -> LensRules) -> LensRules
forall a b. a -> (a -> b) -> b
& (FieldNamer -> Identity FieldNamer)
-> LensRules -> Identity LensRules
Lens' LensRules FieldNamer
lensField ((FieldNamer -> Identity FieldNamer)
-> LensRules -> Identity LensRules)
-> FieldNamer -> LensRules -> LensRules
forall s t a b. ASetter s t a b -> b -> s -> t
.~ ([Char] -> [[Char]]) -> FieldNamer
mappingNamer (\[Char]
s -> [[Char]
s [Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ [Char]
"L"])