diff --git a/ShadowLibrary/Core.hs b/ShadowLibrary/Core.hs index 678df33..84c7850 100644 --- a/ShadowLibrary/Core.hs +++ b/ShadowLibrary/Core.hs @@ -33,7 +33,7 @@ import Data.Tree.NTree.TypeDefs import Data.Maybe import Control.Monad.Trans import Text.XML.HXT.XPath --- import Text.XML.HXT.Curl +import Text.XML.HXT.Curl import Text.XML.HXT.HTTP import Text.Regex.TDFA @@ -64,8 +64,8 @@ downloadDocument = readFromDocument [withParseHTML yes, withEncodingErrors no, withPreserveComment yes, withStrictInput yes, - withHTTP [] --- withCurl [("curl--user-agent","AMU Digital Libraries Indexing Agent")] +-- withHTTP [] + withCurl [("curl--user-agent","AMU Digital Libraries Indexing Agent")] ] downloadDocumentWithEncoding enc = readFromDocument [withParseHTML yes, @@ -73,13 +73,13 @@ downloadDocumentWithEncoding enc = readFromDocument [withParseHTML yes, withEncodingErrors no, withPreserveComment yes, withInputEncoding enc, - withHTTP []] --- withCurl []] +-- withHTTP []] + withCurl []] downloadXmlDocument = readFromDocument [withWarnings no, withEncodingErrors no, - withHTTP []] --- withCurl [] ] +-- withHTTP []] + withCurl [] ] data ShadowLibrary = ShadowLibrary { logoUrl :: Maybe String, diff --git a/app/almanachmuszyny.hs b/app/almanachmuszyny.hs index ebc4f5c..234f1a0 100644 --- a/app/almanachmuszyny.hs +++ b/app/almanachmuszyny.hs @@ -4,7 +4,7 @@ import ShadowLibrary.Core import Text.XML.HXT.Core import Text.XML.HXT.XPath --- import Text.XML.HXT.Curl +--import Text.XML.HXT.Curl import Data.List import Data.List.Utils (replace) diff --git a/shadow-library.cabal b/shadow-library.cabal index 70080b2..85cf6a0 100644 --- a/shadow-library.cabal +++ b/shadow-library.cabal @@ -20,6 +20,7 @@ library , HTTP , hxt , hxt-http + , hxt-curl , hxt-xpath , MissingH , monad-logger @@ -54,6 +55,7 @@ executable almanachmuszyny build-depends: base , hxt , hxt-xpath + , hxt-curl , MissingH , regex-posix , shadow-library