Pointers for how to implement HasAnnotatedInputType for records with more than 3 fields

[EdmundsEcho]

I've been working through the definition of toValue with the help of a couple of links posted in another issue related to FromValue. However, by definition of the volume of code, I feel as though I'm missing something. Is there anyone that might be able to suggest a way to implement HasAnnotatedInputType for the following data type?

data MixItemInput = MixItemInput
  { nameKey    :: Maybe Text
  , nameKeys   :: Maybe [Text]  
  , textValues :: Maybe [Text] 
  , intValues  :: Maybe [Int32]
  , spanValues :: Maybe [SpanInputType]  -- an instance of HasAnnotedInputType
  } deriving (Show, Generic)

Update
The need to implement this has been made moot with the recent fix in deriving the instance generically (... now with more than 3 records).

- E

[dminuoso]

Fixed by 5747b88