@@ -252,6 +252,11 @@ incoherentInstancesNeededParseJSONString :: FromJSON a => Value -> Parser (Incoh
252252incoherentInstancesNeededParseJSONString = case () of
253253 _ | True -> $(mkParseJSON defaultOptions ''IncoherentInstancesNeeded)
254254 | False -> genericParseJSON defaultOptions
255+
256+incoherentInstancesNeededToJSON :: ToJSON a => IncoherentInstancesNeeded a -> Value
257+incoherentInstancesNeededToJSON = case () of
258+ _ | True -> $(mkToJSON defaultOptions ''IncoherentInstancesNeeded)
259+ | False -> genericToJSON defaultOptions
255260#endif
256261
257262-------------------------------------------------------------------------------