[graphql] remove ethercalc endpoint
[gargantext.git] / src / Gargantext / Core / Viz / Graph / API.hs
index 500274ff321beccade152204c1acf9b94a7f6c99..a34011c37564e9f0d090d960c34e2cdcbdc2041a 100644 (file)
@@ -9,7 +9,6 @@ Portability : POSIX
 
 -}
 
-
 {-# LANGUAGE OverloadedLists   #-}   -- allows to write Map and HashMap as lists
 {-# LANGUAGE TypeOperators     #-}
 
@@ -159,13 +158,6 @@ recomputeGraph _uId nId maybeDistance = do
                        pure $ trace "[G.V.G.API] Graph exists, recomputing" graph'''
 
 
--- TODO use Database Monad only here ?
---computeGraph :: HasNodeError err
---             => CorpusId
---             -> Distance
---             -> NgramsType
---             -> NodeListStory
---             -> Cmd err Graph
 computeGraph :: FlowCmdM env err m
              => CorpusId
              -> Distance
@@ -180,7 +172,9 @@ computeGraph cId d nt repo = do
           $ mapTermListRoot [lId] nt repo
 
   myCooc <- HashMap.filter (>1) -- Removing the hapax (ngrams with 1 cooc)
-         <$> getCoocByNgrams (if d == Conditional then Diagonal True else Diagonal False)
+         -- <$> HashMap.filterWithKey (\(x,y) _ -> x /= y)
+         -- <$> getCoocByNgrams (if d == Conditional then Diagonal True else Diagonal False)
+         <$> getCoocByNgrams (Diagonal True)
          <$> groupNodesByNgrams ngs
          <$> getNodesByNgramsOnlyUser cId (lIds <> [lId]) nt (HashMap.keys ngs)
 
@@ -189,8 +183,10 @@ computeGraph cId d nt repo = do
 
   listNgrams <- getListNgrams [lId] nt
 
+  -- graph <- liftBase $ cooc2graphWith Bac d 0 myCooc
   graph <- liftBase $ cooc2graphWith Spinglass d 0 myCooc
   -- saveAsFileDebug "debug/graph" graph
+
   pure $ mergeGraphNgrams graph (Just listNgrams)
 
 
@@ -218,7 +214,6 @@ defaultGraphMetadata cId t repo gm = do
     }
                          -- (map (\n -> LegendField n "#FFFFFF" (pack $ show n)) [1..10])
 
-
 ------------------------------------------------------------
 type GraphAsyncAPI = Summary "Recompute graph"
                      :> "recompute"
@@ -337,8 +332,3 @@ getGraphGexf uId nId = do
   HyperdataGraphAPI { _hyperdataAPIGraph = graph } <- getGraph uId nId
   pure $ addHeader "attachment; filename=graph.gexf" graph
 
-
-
-
-
-