Generic ToSchema does not match generic ToAeson

[PaulJohnson]

By default the generic ToJSON instance uses a tagged field, but the generic ToSchema uses a single constructor:

module Main where

import Data.Aeson
import qualified Data.ByteString.Lazy as BL
import Data.Char
import Data.Proxy
import Data.Swagger
import GHC.Generics


data Foo =
     One Integer Integer
     | Two Integer String
     deriving (Generic)

instance ToJSON Foo
instance ToSchema Foo

aFoo :: Foo
aFoo = Two 3 "Example"


main = do
     putStrLn "Schema for Foo:"
     putStrLn $ map (chr . fromIntegral) $ BL.unpack $ encode $ toSchema (Proxy :: Proxy Foo)
     putStrLn "\n\nValue of Foo:"
     putStrLn $ map (chr . fromIntegral) $ BL.unpack $ encode aFoo

Schema for Foo:
{"properties":{"One":{"items":[{"type":"integer"},{"type":"integer"}],"maxItems":2,"minItems":2,"type":"array"},"Two":{"items":[{"type":"integer"},{"type":"string"}],"maxItems":2,"minItems":2,"type":"array"}},"maxProperties":1,"minProperties":1,"type":"object"}


Value of Foo:
{"contents":[3,"Example"],"tag":"Two"}

[swamp-agr]

Hey @PaulJohnson could you please specify what versions of aeson and swagger2 you are using in the case?

[PaulJohnson]

@swamp-agr Good question. Unfortunately this is at work and I'm currently on leave. I'll update you next week.

[PaulJohnson]

swagger2-2.8.4
aeson-2.0.3.0