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