main::IO()main=do-- we parse CLI optionsopts@(ClientOpts(Helpfuluri)__(Helpfulverb))<-getRecord"Gargantext client"mgr<-newManagerdefaultManagerSettingsburl<-parseBaseUrluriwhenverb$doputStrLn$"[Debug] user: "++maybe"<none>"show(unHelpful$useropts)putStrLn$"[Debug] backend: "++showburl-- we run 'script' from the Script module, reporting potential errorsres<-runClientM(scriptopts)(mkClientEnvmgrburl)caseresofLefterr->putStrLn$"[Client error] "++showerrRighta->printa