[facet] fix abstract search for documents

src/Gargantext/Database/Query/Facet.hs

@@ -334,8 +334,9 @@ viewDocuments cId t mQuery = proc () -> do
                        
   let query = (fromMaybe "" mQuery)
       iLikeQuery = T.intercalate "" ["%", query, "%"]
+      abstractLHS h = fromNullable (pgStrictText "") $ toNullable h .->> (pgStrictText "abstract")
   restrict -< ((n^.node_name) `ilike` (pgStrictText iLikeQuery)) .||
-              ((fromNullable (pgStrictText "") ((toNullable $ n^.node_hyperdata) .->> (pgStrictText "source"))) `ilike` (pgStrictText iLikeQuery))
+              (abstractLHS (n^.node_hyperdata)) `ilike` (pgStrictText iLikeQuery)
               --((n^.node_hyperdata .:? "source") `ilike` (pgStrictText iLikeQuery))
   -- NOTE Title is under node_name
   --      Abstract is under node_hyperdata -> source