From 5cedcecd6ae31e2485dcab2ddd74c74a4779545d Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 3 Sep 2019 21:01:53 +0200
Subject: Make LBC to work

Use request headers to simulate a normal browser
---
 src/executable/haskell/Main.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/executable/haskell/Main.hs')

diff --git a/src/executable/haskell/Main.hs b/src/executable/haskell/Main.hs
index fa1388c..d082b94 100644
--- a/src/executable/haskell/Main.hs
+++ b/src/executable/haskell/Main.hs
@@ -2,10 +2,13 @@ module Main
   ( main
   ) where
 
+import qualified Network.HTTP.Conduit as H
+
 import qualified Conf
-import qualified Service.AdListener as AdListener
+import qualified Service.AdListener   as AdListener
 
 main :: IO ()
 main = do
   conf <- Conf.parse "application.conf"
-  AdListener.start conf
+  manager <- H.newManager H.tlsManagerSettings
+  AdListener.start conf manager
-- 
cgit v1.2.3