spotify-0.1.0.0: types/Spotify/Types/Internal/EnumJSON.hs

module Spotify.Types.Internal.EnumJSON where

import Data.Aeson (FromJSON (parseJSON))

newtype EnumJSON a = EnumJSON a

instance (Enum a) => FromJSON (EnumJSON a) where
    parseJSON = fmap (EnumJSON . toEnum @a) . parseJSON