add new file to cabal and modify Core.hs

This commit is contained in:
Szymon 2022-04-17 22:55:30 +02:00
parent 76146d4e09
commit d6f50c859b
2 changed files with 22 additions and 10 deletions

View File

@ -33,7 +33,7 @@ import Data.Tree.NTree.TypeDefs
import Data.Maybe import Data.Maybe
import Control.Monad.Trans import Control.Monad.Trans
import Text.XML.HXT.XPath import Text.XML.HXT.XPath
-- import Text.XML.HXT.Curl import Text.XML.HXT.Curl
import Text.XML.HXT.HTTP import Text.XML.HXT.HTTP
import Text.Regex.TDFA import Text.Regex.TDFA
@ -64,8 +64,8 @@ downloadDocument = readFromDocument [withParseHTML yes,
withEncodingErrors no, withEncodingErrors no,
withPreserveComment yes, withPreserveComment yes,
withStrictInput yes, withStrictInput yes,
withHTTP [] -- withHTTP []
-- withCurl [("curl--user-agent","AMU Digital Libraries Indexing Agent")] withCurl [("curl--user-agent","AMU Digital Libraries Indexing Agent")]
] ]
downloadDocumentWithEncoding enc = readFromDocument [withParseHTML yes, downloadDocumentWithEncoding enc = readFromDocument [withParseHTML yes,
@ -73,13 +73,13 @@ downloadDocumentWithEncoding enc = readFromDocument [withParseHTML yes,
withEncodingErrors no, withEncodingErrors no,
withPreserveComment yes, withPreserveComment yes,
withInputEncoding enc, withInputEncoding enc,
withHTTP []] -- withHTTP []]
-- withCurl []] withCurl []]
downloadXmlDocument = readFromDocument [withWarnings no, downloadXmlDocument = readFromDocument [withWarnings no,
withEncodingErrors no, withEncodingErrors no,
withHTTP []] -- withHTTP []]
-- withCurl [] ] withCurl [] ]
data ShadowLibrary = ShadowLibrary { logoUrl :: Maybe String, data ShadowLibrary = ShadowLibrary { logoUrl :: Maybe String,

View File

@ -5,8 +5,8 @@ description: Please see README.md
homepage: http://github.com/name/project homepage: http://github.com/name/project
license: Proprietary license: Proprietary
license-file: LICENSE license-file: LICENSE
author: Your name here author: Szymon Parafiński
maintainer: your.address@example.com maintainer: szypar@st.amu.edu.pl
-- copyright: -- copyright:
category: Web category: Web
build-type: Simple build-type: Simple
@ -61,7 +61,19 @@ executable almanachmuszyny
, shadow-library , shadow-library
default-language: Haskell2010 default-language: Haskell2010
executable czasopisma
hs-source-dirs: app
main-is: czasopisma.hs
ghc-options: -threaded -rtsopts -with-rtsopts=-N
build-depends: base
, hxt
, hxt-xpath
, hxt-curl
, MissingH
, regex-posix
, shadow-library
default-language: Haskell2010
source-repository head source-repository head
type: git type: git
location: https://github.com/name/project location: https://git.wmi.amu.edu.pl/s444018/twilight-library