anchor.diff:          verified := expected = actual
           ()
       let handle message =
  -        handle (fun x -> "" |> Some) ignore sendEmail message
  +        handle (fun x -> "" |> Some) ignore sendEmail message |> ignore
   
       """<?xml version="1.0"?>
          <email xmlns:e="urn:grean:schemas:email:2014">
  
positive.code:        <email-reference xmlns:e="urn:grean:schemas:email:2014">
           <e:data-address>http://non.existing.blob/ni/kos</e:data-address>
         </email-reference>"""
      |> handle
  
      verify <@ verified = ref false @>
  
negative.code:        <email-reference xmlns:e="urn:grean:schemas:email:2014">
           <e:data-address>""" + expected + """</e:data-address>
         </email-reference>"""
      |> handle |> ignore
  
      verify <@ verified = ref true @>
  
  