From 47e7a53aa13aade225e75597aa55b33fdf81f289 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Wed, 14 Oct 2020 15:39:59 +0200
Subject: [PATCH] [SocialList] fun for grouped texts

---
 src/Gargantext/Core/Text/Types.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/Gargantext/Core/Text/Types.hs b/src/Gargantext/Core/Text/Types.hs
index 6c36c15c..c011fc4c 100644
--- a/src/Gargantext/Core/Text/Types.hs
+++ b/src/Gargantext/Core/Text/Types.hs
@@ -16,11 +16,24 @@ module Gargantext.Core.Text.Types
 
 import Control.Lens (makeLenses)
 import Data.Set (Set)
+import Data.Map (Map)
 import Data.Text (Text)
 import Gargantext.Core (Lang(..))
 import Gargantext.Core.Types (ListType(..))
 import Gargantext.Database.Admin.Types.Node (NodeId)
 import Gargantext.Prelude
+import qualified Data.Set as Set
+import qualified Data.Map as Map
+import qualified Data.List as List
+
+------------------------------------------------------------------------------
+hasListType :: Map Text ListType -> GroupedText a -> Maybe ListType
+hasListType m (GroupedText _ label _ g _ _ _) =
+  List.foldl' (<>) Nothing
+  $ map (\t -> Map.lookup t m)
+  $ Set.toList
+  $ Set.insert label g
+
 
 ------------------------------------------------------------------------------
 type Group = Lang -> Int -> Int -> Text -> Text
-- 
2.21.0