hxt-7.1: src/Text/XML/HXT/Parser/ProtocolHandlerHttpNativeOrCurl.hs

-- ------------------------------------------------------------
--
-- protocol handler functions for native http access
--
-- Version : $Id: ProtocolHandlerHttpNativeOrCurl.hs,v 1.1 2004/09/02 19:12:01 hxml Exp $

module Text.XML.HXT.Parser.ProtocolHandlerHttpNativeOrCurl
    ( getHttpContentsNativeOrWithCurl
    )

where

import Text.XML.HXT.DOM.XmlKeywords
    ( a_use_curl
    )

import Text.XML.HXT.DOM.XmlState

import Network.URI
    ( URI
    )

import Text.XML.HXT.Parser.ProtocolHandlerHttpNative
    ( getHttpContentsWithHttp
    )

import Text.XML.HXT.Parser.ProtocolHandlerHttpCurl
    ( getHttpContentsWithCurl
    )


-- ------------------------------------------------------------
--
-- the http protocol handler switch for internal / external access

getHttpContentsNativeOrWithCurl		:: URI -> XmlStateFilter a
getHttpContentsNativeOrWithCurl uri n
    = do
      curl <- getSysParamInt a_use_curl 0
      ( if curl /= 0
	then getHttpContentsWithCurl
	else getHttpContentsWithHttp ) uri n


-- ------------------------------------------------------------