From 0bc2ca1329cc3837da3d1427d9d4818bfb2f99df Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Thu, 6 Dec 2018 20:12:18 +0100
Subject: [PATCH] [FIX] compilation.
---
src/Gargantext/API/Search.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Gargantext/API/Search.hs b/src/Gargantext/API/Search.hs
index 302289d6..97135794 100644
--- a/src/Gargantext/API/Search.hs
+++ b/src/Gargantext/API/Search.hs
@@ -104,7 +104,7 @@ type SearchAPI = Post '[JSON] SearchResults
search :: Connection -> SearchQuery -> Handler SearchResults
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
--
2.21.0