twitter-types-lens-0.11.0: Web/Twitter/Types/Lens/TH.hs

{-# LANGUAGE CPP #-}

module Web.Twitter.Types.Lens.TH where

import Control.Lens hiding (makeLenses)
import Language.Haskell.TH

makeLenses :: Name -> Q [Dec]
makeLenses = makeLensesWith $ lensRules & lensField .~ nameF
  where

#if MIN_VERSION_lens(4, 5, 0)
    nameF _ _ n = [TopName . mkName . nameBase $ n]
#elif MIN_VERSION_lens(4, 4, 0)
    nameF _ n = [TopName . mkName . nameBase $ n]
#elif MIN_VERSION_lens(4, 0, 0)
    nameF = Just
#endif