-- | This module provides helper definitions for "Data.Aeson".

module Haspara.Internal.Aeson where

import qualified Data.Char      as C
import qualified Deriving.Aeson as DA


-- | Type definition for string modifiers that uppercase a given symbol.
data UpperCase


instance DA.StringModifier UpperCase where
  getStringModifier :: String -> String
getStringModifier = (Char -> Char) -> String -> String
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Char -> Char
C.toUpper