module Network.Nakadi.Types.Util where

import           Data.Aeson
import           Data.Aeson.Types
import           Data.Maybe
import           Data.Scientific  (toBoundedInteger)
import qualified Data.Text        as Text
import           Data.UUID
import           Prelude

-- | Construct a field renamer function from a field renamer map.
makeFieldRenamer :: [(String, String)] -> String -> String
makeFieldRenamer fieldMap field = fromMaybe field (lookup field fieldMap)

parseUUID :: String -> (UUID -> a) -> Value -> Parser a
parseUUID label constructor val@(String valS) =
    case Data.UUID.fromString (Text.unpack valS) of
      Just uuid -> return (constructor uuid)
      Nothing   -> typeMismatch label val
parseUUID label _ val = typeMismatch label val

parseInteger :: (Integral i, Bounded i) => String -> (i -> a) -> Value -> Parser a
parseInteger label constructor val@(Number n) =
  case toBoundedInteger n of
    Just i  -> return $ constructor i
    Nothing -> typeMismatch label val
parseInteger label _ val = typeMismatch label val