package Ġno . nav . su . se . bak over . client . stubs . op pd rag Ċ Ċ import Ġarrow . core . Either Ċ import Ġarrow . core . right Ċ import Ġno . nav . su . se . bak over . client . op pd rag . av stem ming . lag G ren ses n itt av stem ming Xml Ċ import Ġno . nav . su . se . bak over . client . op pd rag . av stem ming . lag K ons ist ens av stem ming Xml Ċ import Ġno . nav . su . se . bak over . domain . op pd rag . av stem ming . Av stem ming Ċ import Ġno . nav . su . se . bak over . domain . op pd rag . av stem ming . Av stem ming Publisher Ċ Ċ object ĠAv stem ming Stub Ġ: ĠAv stem ming Publisher Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġpublish ( g ren ses n itt av stem ming : ĠAv stem ming . G ren ses n itt av stem ming ): ĠEither < Av stem ming Publisher . K un ne Ik ke S ende Av stem ming , ĠAv stem ming . G ren ses n itt av stem ming > Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġg ren ses n itt av stem ming . copy ( av stem ming Xml Request Ġ= Ġlag G ren ses n itt av stem ming Xml ( g ren ses n itt av stem ming ). toString ()) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. right () ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġpublish ( k ons ist ens av stem ming : ĠAv stem ming . K ons ist ens av stem ming . Ny ): ĠEither < Av stem ming Publisher . K un ne Ik ke S ende Av stem ming , ĠAv stem ming . K ons ist ens av stem ming . Ny > Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġk ons ist ens av stem ming . copy ( av stem ming Xml Request Ġ= Ġlag K ons ist ens av stem ming Xml ( k ons ist ens av stem ming ). toString ()) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. right () ĊĠĠĠ Ġ} Ċ } Ċ