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)