From 275a42f01a84fcefb307e1dadaff0cae0039394a Mon Sep 17 00:00:00 2001
From: Jon Schoning <jonschoning@gmail.com>
Date: Sat, 8 Aug 2020 01:46:06 -0500
Subject: [PATCH] fix fetch path title by correcting request headers

---
 src/Handler/Archive.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/src/Handler/Archive.hs b/src/Handler/Archive.hs
index e1593ad..30b4774 100644
--- a/src/Handler/Archive.hs
+++ b/src/Handler/Archive.hs
@@ -147,10 +147,6 @@ buildRequest url = do
   pure $ NH.parseRequest_ url & \r ->
     r { NH.requestHeaders =
           [ ("Cache-Control", "max-age=0")
-          , ("Connection", "keep-alive")
-          , ("DNT", "1")
-          , ("Host", "archive.li")
-          , ("Upgrade-Insecure-Requests", "1")
           , ("User-Agent", ua)
           ]
       }