on master help sign in
Test incoherent instances for ToJSON
368dcf2lyxia
tests/Encoders.hs+5
@@ -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
255+
256+incoherentInstancesNeededToJSON :: ToJSON a => IncoherentInstancesNeeded a -> Value
257+incoherentInstancesNeededToJSON = case () of
258+ _ | True -> $(mkToJSON defaultOptions ''IncoherentInstancesNeeded)
259+ | False -> genericToJSON defaultOptions
255#endif
260#endif
256
261
257-------------------------------------------------------------------------------
262-------------------------------------------------------------------------------