let
level_of_url u =
match
u
with
|
Blank_url
->
L
|
Http_url
(domain, ru)
->
M
(domain)