diff options
author | Joris | 2019-09-03 21:01:53 +0200 |
---|---|---|
committer | Joris | 2019-09-03 21:04:40 +0200 |
commit | 5cedcecd6ae31e2485dcab2ddd74c74a4779545d (patch) | |
tree | bb54b8f1bbf1f5baaf94c28e4443fb17321d5fc7 /src/executable/haskell/Main.hs | |
parent | 8d14cb80170a8a15a0ced13bc7fe5cd16b908974 (diff) | |
download | ad-listener-5cedcecd6ae31e2485dcab2ddd74c74a4779545d.tar.gz ad-listener-5cedcecd6ae31e2485dcab2ddd74c74a4779545d.tar.bz2 ad-listener-5cedcecd6ae31e2485dcab2ddd74c74a4779545d.zip |
Make LBC to work
Use request headers to simulate a normal browser
Diffstat (limited to 'src/executable/haskell/Main.hs')
-rw-r--r-- | src/executable/haskell/Main.hs | 7 |
1 files changed, 5 insertions, 2 deletions
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 |