Variant

Now there is variant support in Simple-JSON.

Tl;dr

type MyTestVariant = Variant
  ( a :: String
  , b :: Int
  )

{
  "type": "b",
  "value": 123
}