package Ġorg . ag or ah q . ag ora . post . operations Ċ Ċ import Ġorg . ag or ah q . ag ora . core . api . data . Element Source Ċ import Ġorg . ag or ah q . ag ora . core . api . operation . Attributes Ċ import Ġorg . ag or ah q . ag ora . core . api . operation . Command Ċ import Ġorg . ag or ah q . ag ora . core . api . operation . context . Operation Context Ċ import Ġorg . ag or ah q . ag ora . core . api . operation . types . Procedure Ċ import Ġorg . ag or ah q . ag ora . core . api . operation . types . Procedure Descriptor Ċ import Ġorg . ag or ah q . ag ora . core . api . service . Query Service Ċ import Ġorg . ag or ah q . ag ora . core . api . service . Storage Service Ċ import Ġorg . ag or ah q . ag ora . post . domain . Post Ċ import Ġorg . ag or ah q . ag ora . post . domain . Show Post URL Ċ import Ġorg . hex works . cob alt . core . api . UUID Ċ Ċ class ĠDelete Post ( ĊĠĠĠĠĠĠĠ Ġprivate Ġval Ġpost Query Service : ĠQuery Service < Post >, ĊĠĠĠĠĠĠĠ Ġprivate Ġval Ġpost Storage : ĠStorage Service < Post > Ċ ) Ġ: ĠProcedure < Post , ĠUUID >, ĠProcedure Descriptor < Post , ĠUUID > Ġby ĠComp anion Ġ{ ĊĊĠĠĠ Ġoverride Ġfun Ġfetch Resource ( context : ĠOperation Context < out ĠUUID >): ĠElement Source < Post > Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn ĠElement Source . of Maybe ( post Query Service . findById ( context . input )) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġcreate Command ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcontext : ĠOperation Context < out ĠUUID >, ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdata : ĠElement Source < Post > ĊĠĠĠ Ġ) Ġ= ĠCommand . of Ġ{ ĊĠĠĠĠĠĠĠ Ġpost Storage . delete ( data . as Single ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun ĠtoString () Ġ= Ġname ĊĊĠĠĠ Ġcompanion Ġobject Ġ: ĠProcedure Descriptor < Post , ĠUUID > Ġ{ ĊĠĠĠĠĠĠĠ Ġoverride Ġval Ġname Ġ= Ġ" Delete ĠPost " ĊĠĠĠĠĠĠĠ Ġoverride Ġval Ġattributes Ġ= ĠAttributes . create < Post , ĠUUID , ĠUnit >( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġroute Ġ= Ġ"${ Show Post URL . root }/ delete ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġurl Class Ġ= ĠShow Post URL :: class ĊĠĠĠĠĠĠĠ Ġ) ĊĠĠĠ Ġ} Ċ } Ċ