TH.hs

-- #hide
module Data.Thyme.TH (thymeLenses) where

import Prelude
import Control.Lens
import Language.Haskell.TH

thymeLenses :: Name -> Q [Dec]
thymeLenses = makeLensesWith $ lensRules
    & lensField .~ Just . (:) '_'