Something like: ``` data Foo = A { x :: Int } | B { whatever :: String } -- serialises as { "type": "A", "x": 4 } ```