: instance FromJSON BaseType where   parseJSON = withObject "BaseType" $ \o -> do     foo <- o .: "foo"     baz <- o .: "baz"     return $ BaseType { foo=foo, baz=baz }  instance FromJSON EmbeddedType where   parseJSON = with