From 8c268b5cc58ddc39918de694946e7ce518ae3bc6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Mon, 11 Apr 2022 17:27:12 +0200
Subject: [PATCH] [DOC]

---
 gargantext.cabal                       |  4 ++--
 src/Gargantext/Core/Viz/Graph/Tools.hs | 10 +++++++---
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/gargantext.cabal b/gargantext.cabal
index 8f488048..aa9b5fdd 100644
--- a/gargantext.cabal
+++ b/gargantext.cabal
@@ -1,11 +1,11 @@
-cabal-version: 0.0.5.8.5
+cabal-version: 1.12
 
 -- This file has been generated from package.yaml by hpack version 0.34.4.
 --
 -- see: https://github.com/sol/hpack
 
 name:           gargantext
-version: 0.0.5.8.5
+version:        0.0.5.8.5
 synopsis:       Search, map, share
 description:    Please see README.md
 category:       Data
diff --git a/src/Gargantext/Core/Viz/Graph/Tools.hs b/src/Gargantext/Core/Viz/Graph/Tools.hs
index a7447b56..cf36dd82 100644
--- a/src/Gargantext/Core/Viz/Graph/Tools.hs
+++ b/src/Gargantext/Core/Viz/Graph/Tools.hs
@@ -40,6 +40,7 @@ import qualified Data.HashMap.Strict      as HashMap
 import qualified Data.List                as List
 import qualified Data.Map                 as Map
 import qualified Data.Set                 as Set
+import qualified Data.Text                as Text
 import qualified Data.Vector.Storable     as Vec
 import qualified Graph.BAC.ProxemyOptim   as BAC
 import qualified IGraph                   as Igraph
@@ -105,14 +106,17 @@ cooc2graphWith' doPartitions distance threshold myCooc = do
     (distanceMap, diag, ti) = doDistanceMap distance threshold myCooc
 
 --{- -- Debug
-  saveAsFileDebug "/tmp/distanceMap" distanceMap
-  saveAsFileDebug "/tmp/distanceMap.keys" (List.length $ Map.keys distanceMap)
+  -- saveAsFileDebug "/tmp/distanceMap" distanceMap
+  -- saveAsFileDebug "/tmp/distanceMap.keys" (List.length $ Map.keys distanceMap)
   -- printDebug "similarities" similarities
 --}
 
   partitions <- if (Map.size distanceMap > 0)
       then doPartitions distanceMap
-      else panic "Text.Flow: DistanceMap is empty"
+      else panic $ Text.unlines [ "[Gargantext.C.V.Graph.Tools] Similarity Matrix is empty"
+                                , "Maybe you should add more Map Terms in your list"
+                                , "Tutorial: link todo"
+                                ]
 
   let
     nodesApprox :: Int
-- 
2.21.0