1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
module Main
where
import Text.XML.HXT.Core
import Text.XML.HXT.Curl
import Text.XML.HXT.Cache
import Codec.Compression.BZip (compress, decompress)
import System
main = runX ( readDocument [ withParseHTML yes
, withWarnings no
, withRemoveWS yes
, withCache "/tmp" 10 False -- enable /tmp as cache dir
-- documents remain valid 10 seconds (for testing)
-- no 404 documents are cached
, withCompression (compress, decompress) -- the cached files will be BZip compressed
, withStrictDeserialize yes -- cache file will be read and closed immediatly
, withTrace 2
, withCurl [] -- curl is taken for HTTP access
] "http://www.fh-wedel.de/"
>>>
-- perform (arrIO0 $ system "/usr/bin/lsof")
-- >>>
processChildren (hasName "html" /> hasName "body" //> isText)
>>>
writeDocument [] ""
)
>> return ()
|
