fix fetch path title by correcting request headers
This commit is contained in:
parent
7d28b2d977
commit
b20913d950
|
@ -147,10 +147,6 @@ buildRequest url = do
|
||||||
pure $ NH.parseRequest_ url & \r ->
|
pure $ NH.parseRequest_ url & \r ->
|
||||||
r { NH.requestHeaders =
|
r { NH.requestHeaders =
|
||||||
[ ("Cache-Control", "max-age=0")
|
[ ("Cache-Control", "max-age=0")
|
||||||
, ("Connection", "keep-alive")
|
|
||||||
, ("DNT", "1")
|
|
||||||
, ("Host", "archive.li")
|
|
||||||
, ("Upgrade-Insecure-Requests", "1")
|
|
||||||
, ("User-Agent", ua)
|
, ("User-Agent", ua)
|
||||||
]
|
]
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue