package Ġno . nav . su . se . bak over . web Ċ Ċ import Ġio . ktor . application . Application Call Ċ import Ġio . ktor . http . ContentType Ċ import Ġio . ktor . http . HttpStatusCode Ċ import Ġio . ktor . response . respond Text Ċ import Ġno . nav . su . se . bak over . common . serialize Ċ import Ġno . nav . su . se . bak over . web . Result at . Companion . json Ċ Ċ /* Ġfor st Ã¥r Ġseg ĠpÃ¥ Ġhv ordan Ġet Ġresult at Ġmed Ġen Ġme ld ing Ġb lir Ġtil Ġen Ġhttp - response Ġ*/ Ċ internal Ġdata Ġclass ĠResult at Ġprivate Ġconstructor ( ĊĠĠĠ Ġval Ġhttp Code : ĠHttpStatusCode , ĊĠĠĠ Ġprivate Ġval Ġjson : ĠString , ĊĠĠĠ Ġprivate Ġval ĠcontentType : ĠContentType , Ċ ) Ġ{ ĊĠĠĠ Ġinit Ġ{ ĊĠĠĠĠĠĠĠ Ġrequire ( http Code Ġin ĠHttpStatusCode . all StatusCode s ) Ġ{ Ġ" Unknown Ġhttp Ġstatus Ġcode :$ http Code " Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġsuspend Ġfun Ġs var ( call : ĠApplication Call ) Ġ= ĊĠĠĠĠĠĠĠ Ġcall . respond Text ( contentType Ġ= ĠcontentType , Ġstatus Ġ= Ġhttp Code , Ġtext Ġ= Ġjson ) ĊĊĠĠĠ Ġcompanion Ġobject Ġ{ ĊĠĠĠĠĠĠĠ Ġfun Ġjson ( http Code : ĠHttpStatusCode , Ġjson : ĠString ): ĠResult at Ġ= ĊĠĠĠĠĠĠĠĠĠĠĠ ĠResult at ( http Code , Ġjson , ĠcontentType Ġ= ĠContentType . Application . Json ) ĊĠĠĠ Ġ} Ċ } Ċ Ċ internal Ġfun ĠHttpStatusCode . error Json ( message : ĠString , Ġcode : ĠString ): ĠResult at Ġ{ ĊĠĠĠ Ġreturn Ġjson ( this , Ġserialize ( Error Json ( message , Ġcode ))) Ċ } Ċ Ċ internal Ġfun ĠHttpStatusCode . error Json ( errors : ĠList < Error Json >): ĠResult at Ġ{ ĊĠĠĠ Ġreturn Ġjson ( this , Ġserialize ( errors )) Ċ } Ċ Ċ internal Ġsuspend Ġfun ĠApplication Call . s var ( result at : ĠResult at ) Ġ= Ġresult at . s var ( this ) Ċ