hgrep-0.0: src/Language/Haskell/HGrep/Internal/Lens/Rules.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
module Language.Haskell.HGrep.Internal.Lens.Rules where


import           Control.Lens

import           Language.Haskell.HGrep.Prelude

import           Language.Haskell.TH (Name, DecsQ, mkName, nameBase)


rules :: LensRules
rules =
  lensRules
    & set' lensField namer
    & set' simpleLenses False
    & set' createClass False
    & set' generateSignatures True

namer :: FieldNamer
namer _tn _fields field =
  [TopName (mkName ("_" <> nameBase field))]

makeOptics :: Name -> DecsQ
makeOptics tn =
  (<>)
    <$> makeLensesWith rules tn
    <*> makePrisms tn