Path.hs

module Data.Hermes.Decoder.Path
  ( withKey
  , withIndex
  , withPointer
  ) where

import Data.Text (Text)

import Data.Hermes.Decoder.Internal (DecoderM, HermesEnv (hPath), Path (..), local)

withKey :: Text -> DecoderM a -> DecoderM a
withKey key = local $ \st -> st {hPath = Key key : hPath st}
{-# INLINE withKey #-}

withPointer :: Text -> DecoderM a -> DecoderM a
withPointer path = local $ \st -> st {hPath = [Pointer path]}
{-# INLINE withPointer #-}

withIndex :: Int -> DecoderM a -> DecoderM a
withIndex idx = local $ \st -> st {hPath = Idx idx : hPath st}
{-# INLINE withIndex #-}