servant-hateoas-0.1.0: src/Servant/Hateoas/Some.hs

module Servant.Hateoas.Some where

import Data.Aeson

-- | Existential for types that can be converted 'ToJSON'.
data SomeToJSON f where
  SomeToJSON :: ToJSON a => a -> SomeToJSON f

instance ToJSON (SomeToJSON f) where
  toJSON (SomeToJSON x) = toJSON x