package Ġorg . http 4 k . types afe . routing . messages . body Ċ Ċ import Ġcom . nat pr y ce . Success Ċ import Ġorg . http 4 k . core . ContentType . Companion . TEXT _ PLAIN Ċ import Ġorg . http 4 k . core . Http Message Ċ import Ġorg . http 4 k . core . Request Ċ import Ġorg . http 4 k . core . Response Ċ import Ġorg . http 4 k . types afe . routing . messages . Simple Lens Ċ Ċ class ĠText Lens < M Ġ: ĠHttp Message > Ġ: ĠSimple Lens < M , ĠString > Ġ{ ĊĠĠĠ Ġoverride Ġfun Ġget ( from : ĠM ) Ġ= ĊĠĠĠĠĠĠĠ ĠSuccess ( from . body String ()) ĊĊĠĠĠ Ġ@ Suppress (" UN CHECK ED _ CAST ") ĊĠĠĠ Ġoverride Ġfun Ġset ( into : ĠM , Ġvalue : ĠString ) Ġ= ĊĠĠĠĠĠĠĠ ĠSuccess ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinto . text Plain ( value ) Ġas ĠM ) ĊĊĠĠĠ Ġoverride Ġfun ĠtoString () Ġ= Ġ" text / plain Ġbody " Ċ } Ċ Ċ fun Ġ< M Ġ: ĠHttp Message > ĠM . text Plain ( body : ĠString ) Ġ= ĊĠĠĠ Ġthis . replace Header (" Content - Type ", ĠTEXT _ PLAIN . to HeaderValue ()) ĊĠĠĠĠĠĠĠ Ġ. body ( body ) Ċ Ċ fun ĠResponse . text Plain ( body : ĠString ) Ġ= ĊĠĠĠ Ġthis . replace Header (" Content - Type ", ĠTEXT _ PLAIN . to HeaderValue ()) ĊĠĠĠĠĠĠĠ Ġ. body ( body ) Ċ Ċ fun ĠRequest . text Plain ( body : ĠString ) Ġ= ĊĠĠĠ Ġthis . replace Header (" Content - Type ", ĠTEXT _ PLAIN . to HeaderValue ()) ĊĠĠĠĠĠĠĠ Ġ. body ( body ) Ċ