@@ -252,6 +252,11 @@ incoherentInstancesNeededParseJSONString :: FromJSON a => Value -> Parser (Incoh
252incoherentInstancesNeededParseJSONString = case () of
252incoherentInstancesNeededParseJSONString = case () of
253 _ | True -> $(mkParseJSON defaultOptions ''IncoherentInstancesNeeded)
253 _ | True -> $(mkParseJSON defaultOptions ''IncoherentInstancesNeeded)
254 | False -> genericParseJSON defaultOptions
254 | False -> genericParseJSON defaultOptions
256+incoherentInstancesNeededToJSON :: ToJSON a => IncoherentInstancesNeeded a -> Value
257+incoherentInstancesNeededToJSON = case () of
258+ _ | True -> $(mkToJSON defaultOptions ''IncoherentInstancesNeeded)
259+ | False -> genericToJSON defaultOptions
257-------------------------------------------------------------------------------
262-------------------------------------------------------------------------------