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