Permalink
Browse files

Fix ambigous Endpoint

Changed the import of Network.HTTP to a qualified import
  • Loading branch information...
1 parent 143d4e1 commit fe60e58d506c5575aedef84538d3fc4bd91d31db @mhitza mhitza committed Mar 20, 2012
Showing with 4 additions and 4 deletions.
  1. +4 −4 Database/HSparql/Connection.hs
@@ -7,7 +7,7 @@ where
import Control.Monad
import Data.Maybe
-import Network.HTTP
+import qualified Network.HTTP as HTTP
import Text.XML.Light
import Database.HSparql.QueryGenerator
@@ -63,7 +63,7 @@ structureContent s =
-- 'Variable's in the 'Query' action.
query :: EndPoint -> Query [Variable] -> IO (Maybe [[BindingValue]])
query ep q = do
- let uri = ep ++ "?" ++ urlEncodeVars [("query", createQuery q)]
- request = replaceHeader HdrUserAgent "hsparql-client" (getRequest uri)
- response <- simpleHTTP request >>= getResponseBody
+ let uri = ep ++ "?" ++ HTTP.urlEncodeVars [("query", createQuery q)]
+ request = HTTP.replaceHeader HTTP.HdrUserAgent "hsparql-client" (HTTP.getRequest uri)
+ response <- HTTP.simpleHTTP request >>= HTTP.getResponseBody
return $ structureContent response

0 comments on commit fe60e58

Please sign in to comment.