[search] fix to_tsquery call

When user searched for a phrase with space inside, in database, the
'to_tsquery' function raised an sql error. One should use
'plainto_tsquery'. Also, a proper test was added.

cabal.project

@@ -31,8 +31,8 @@ source-repository-package
 
 source-repository-package
     type: git
-    location: https://github.com/adinapoli/haskell-opaleye.git
-    tag: e9a29582ac66198dd2c2fdc3f8c8a4b1e6fbe004
+    location: https://github.com/garganscript/haskell-opaleye.git
+    tag: 6cf1bcfe215143efac17919cfd0abdd60e0f717c
 
 source-repository-package
     type: git

src/Gargantext/Database/Action/Search.hs

@@ -95,7 +95,7 @@ searchDocInDatabase p t = runOpaQuery (queryDocInDatabase p t)
     queryDocInDatabase :: ParentId -> Text -> O.Select (Column SqlInt4, Column SqlJsonb)
     queryDocInDatabase _p q = proc () -> do
         row <- queryNodeSearchTable -< ()
-        restrict -< (_ns_search row)    @@ (sqlToTSQuery (unpack q))
+        restrict -< (_ns_search row)    @@ (sqlPlainToTSQuery (unpack q))
         restrict -< (_ns_typename row) .== (sqlInt4 $ toDBid NodeDocument)
         returnA  -< (_ns_id row, _ns_hyperdata row)
 

test/Test/Database/Operations.hs

@@ -68,6 +68,7 @@ tests = sequential $ aroundAll withTestDB $ describe "Database" $ do
       it "Can perform search by author in documents" corpusSearch02
       it "Can perform more complex searches using the boolean API" corpusSearch03
       it "Can correctly count doc score" corpusScore01
+      it "Can perform search with spaces for doc in db" corpusSearchDB01
         
 nodeStoryTests :: Spec
 nodeStoryTests = sequential $

test/Test/Database/Operations/DocumentSearch.hs

@@ -208,3 +208,16 @@ corpusScore01 env = do
 
     liftIO $ do
       map facetDoc_score results `shouldBe` [Just 0.0, Just 0.0]
+
+-- | Check that we support search with tsquery
+corpusSearchDB01 :: TestEnv -> Assertion
+corpusSearchDB01 env = do
+  flip runReaderT env $ runTestMonad $ do
+
+    parentId <- getRootId (UserName userMaster)
+    [corpus] <- getCorporaWithParentId parentId
+
+    results <- searchDocInDatabase (_node_id corpus) ("first second")
+
+    liftIO $ do
+      length results `shouldBe` 0 -- doesn't exist, we just check that proper to_tsquery is called