Skip to content

haskell-gargantext
haskell-gargantext
Commit 0bc2ca13 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] compilation.

parent 1303ec82
Pipeline #43 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 1 deletion
    src/Gargantext/API/Search.hs
    View file @ 0bc2ca13
    ...@@ -104,7 +104,7 @@ type SearchAPI = Post '[JSON] SearchResults ...@@ -104,7 +104,7 @@ type SearchAPI = Post '[JSON] SearchResults
    search :: Connection -> SearchQuery -> Handler SearchResults search :: Connection -> SearchQuery -> Handler SearchResults
    search c (SearchQuery q pId) = search c (SearchQuery q pId) =
    liftIO $ SearchResults <$> map (\(i, _, t, _, a, _) -> SearchResult i (cs $ encode t) [arbitraryAuthor]) liftIO $ SearchResults <$> map (\(i, _, t, _, _, _) -> SearchResult i (cs $ encode t) [arbitraryAuthor])
    <$> textSearch c (toTSQuery q) pId 5 0 Desc <$> textSearch c (toTSQuery q) pId 5 0 Desc
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment