Fork hsparql to use structureContent

install

@@ -54,6 +54,7 @@ git clone https://github.com/np/servant-job.git
 git clone https://github.com/np/patches-map
 git clone https://gitlab.com/npouillard/patches-class.git
 git clone https://github.com/delanoe/haskell-opaleye
+git clone https://github.com/np/hsparql
 cd ..
 
 stack docker pull

src/Gargantext/Text/Parsers/Isidore.hs

@@ -26,13 +26,13 @@ selectQueryRaw' uri q = getWith opts uri
                     & header "User-Agent" .~ ["gargantext-hsparql-client"]
                     & param  "query"      .~ [Data.Text.pack q]
 
-isidoreGet :: Text -> IO ByteString
+isidoreGet :: Text -> IO (Maybe [[BindingValue]])
 isidoreGet q = do
   let s = createSelectQuery $ simpleSelect q
   putStrLn s
   r <- selectQueryRaw' route s
   putStrLn $ show $ r ^. responseStatus
-  pure $ r ^. responseBody
+  pure $ structureContent $ r ^. responseBody
  -- res <- selectQuery route $ simpleSelect q
  -- pure res
 

stack.yaml

@@ -8,6 +8,7 @@ packages:
 - 'deps/patches-map'
 - 'deps/patches-class'
 - 'deps/haskell-opaleye'
+- 'deps/hsparql'
 
 allow-newer: true
 extra-deps:
@@ -24,7 +25,6 @@ extra-deps:
 - duckling-0.1.3.0
 - full-text-search-0.2.1.4
 - fullstop-0.1.4
-- hsparql-0.3.6 # Sparql for ISIDORE database
 - hgal-2.0.0.2
 - rdf4h-3.1.1
 - located-base-0.1.1.1