futur.blue / pegasus
objective categorical abstract machine language personal data server
65
fork

Configure Feed

Select the types of activity you want to include in your feed.

Log email sending errors

futurGH 07ffdbaa 978abd6e

+3 -1
+3 -1
pegasus/lib/util.ml
··· 533 533 failwith (Printf.sprintf "failed to construct email: %s" e) 534 534 | Ok message -> ( 535 535 try%lwt Letters.send ~config ~sender ~recipients ~message 536 - with _ -> Lwt.return (log_email ()) ) ) 536 + with e -> 537 + Errors.log_exn e ; 538 + Lwt.return (log_email ()) ) ) 537 539 | _ -> 538 540 Lwt.return (log_email ()) 539 541