let domain_of_url u = 
        match u with 
        | Blank_url -> None           
        | Http_url (domain, ru) -> Some(domain)