[FIX] compilation
[gargantext.git] / src / Gargantext / Core / Viz / Phylo / API / Tools.hs
index 719da65159c6ff731f055cfd0de806f0a33f1800..52720aac71ec842ffb60c601d1efeac0b0c53a6e 100644 (file)
@@ -41,7 +41,7 @@ import Gargantext.Database.Schema.Context
 import Gargantext.Database.Schema.Node
 import Gargantext.Database.Schema.Ngrams (NgramsType(..))
 import Gargantext.Prelude
-import Prelude             as Prelude
+import Prelude
 import System.Process      as Shell
 import qualified Data.ByteString.Lazy                    as Lazy
 import qualified Data.List as List
@@ -121,14 +121,14 @@ context2phyloDocument :: TimeUnit
 context2phyloDocument timeUnit context (ngs_terms, ngs_sources) = do
   let contextId = _context_id context
   (date, date') <- context2date context timeUnit
-  text          <- Map.lookup contextId ngs_terms
-  sources       <- Map.lookup contextId ngs_sources
-  pure $ Document date date'
-                  (toText text)
-                   Nothing
-                  (toText sources)
-    where
-      toText x = Set.toList $ Set.map unNgramsTerm x
+
+  let
+    toText x = Set.toList $ Set.map unNgramsTerm x
+
+    text'    = maybe [] toText $ Map.lookup contextId ngs_terms
+    sources' = maybe [] toText $ Map.lookup contextId ngs_sources
+
+  pure $ Document date date' text' Nothing sources'
 
 
 context2date :: Context HyperdataDocument -> TimeUnit -> Maybe (Date, Text)