11 lines
251 B
Haskell
11 lines
251 B
Haskell
module Download (downloadHtmlDef) where
|
|
|
|
import Network.HTTP
|
|
|
|
baseUrl = "http://www.cnrtl.fr/definition/"
|
|
|
|
downloadHtmlDef :: String -> IO String
|
|
downloadHtmlDef w =
|
|
simpleHTTP (req) >>= getResponseBody
|
|
where req = getRequest (baseUrl ++ w)
|