module Store.Query.Field
  ( Field (..),
    toString,
    prefix,
  )
where

import Data.Aeson qualified as J
import Data.Aeson.Key qualified as JK
import Data.Aeson.KeyMap qualified as JM
import Data.List (intercalate)
import Data.Text qualified as T

data Field
  = Field Collection [T.Text]
  deriving (Show)

toString :: Field -> String
toString (Field c ks) = intercalate "." (c : map T.unpack ks)

type Collection = FilePath

prefix :: Field -> J.Value -> J.Value
prefix (Field c ks) = prefix' (T.pack c : ks)

prefix' :: [T.Text] -> J.Value -> J.Value
prefix' ks v =
  foldr ((J.Object .) . JM.singleton) v (map JK.fromText ks)