@@ -27,18 +27,9 @@ let extractMetaTags = async (url: string) => {
2727 }
2828
2929let metaTags = elements -> Array .reduce (Dict .fromArray ([]), (tags ,meta )=> {
30- let name =
31- meta
32- -> WebAPI .Element .getAttribute ("name" )
33- -> Null .make
34- let property =
35- meta
36- -> WebAPI .Element .getAttribute ("property" )
37- -> Null .make
38- let itemprop =
39- meta
40- -> WebAPI .Element .getAttribute ("itemprop" )
41- -> Null .make
30+ let name = meta -> WebAPI .Element .getAttribute ("name" )
31+ let property = meta -> WebAPI .Element .getAttribute ("property" )
32+ let itemprop = meta -> WebAPI .Element .getAttribute ("itemprop" )
4233
4334let name = switch (name ,property ,itemprop ) {
4435 | (Value (name ),_ ,_ )=> Some (name )
@@ -47,14 +38,10 @@ let extractMetaTags = async (url: string) => {
4738 |_ => None
4839 }
4940
50- let content =
51- meta
52- -> WebAPI .Element .getAttribute ("content" )
53- -> Nullable .make
54- -> Nullable .toOption
41+ let content = meta -> WebAPI .Element .getAttribute ("content" )
5542
5643switch (name ,content ) {
57- | (Some (name ),Some (content ))=> tags -> Dict .set (name ,content )
44+ | (Some (name ),Value (content ))=> tags -> Dict .set (name ,content )
5845 |_ => ()
5946 }
6047