[FIX] test WIP

src-test/Core/Text.hs

@@ -13,6 +13,7 @@ Portability : POSIX
 
 module Core.Text where
 
+{-
 import Gargantext.API.Ngrams.Types (NgramsTerm(..))
 import Gargantext.Core.Viz.Graph (Graph(..))
 import Gargantext.Prelude
@@ -58,3 +59,5 @@ termTests = "It is hard to detect important articles in a specific context. Info
     -- TODO
     -- group ngrams
     --ocs  = occ       $ ws
+    --
+-}

src-test/Core/Text/Examples.hs

@@ -26,6 +26,7 @@ This document defines basic of Text definitions according to Gargantext..
 module Core.Text.Examples
   where
 
+{-
 import Data.Array.Accelerate (toList, Matrix)
 import Data.Map (Map)
 import Data.Ord (Down(..))
@@ -129,4 +130,4 @@ incExcSpeGen_sorted m = both ordonne (incExcSpeGen $ cooc2mat Triangle ti m)
     ordonne x = sortWith (Down . snd)
               $ zip (map snd $ Map.toList fi) (toList x)
 
-
+-}

src-test/Core/Text/Flow.hs

@@ -15,12 +15,14 @@ From text to viz, all the flow of texts in Gargantext.
 module Core.Text.Flow
   where
 
+{-
 import qualified Data.Text as T
 --import Data.Text.IO (readFile)
 import Database.PostgreSQL.Simple (Connection)
 import GHC.IO (FilePath)
 --import Gargantext.Core (Lang)
 import Gargantext.Core.Types (CorpusId)
+-}
 
 {-
   ____                           _____         _   
@@ -32,6 +34,7 @@ import Gargantext.Core.Types (CorpusId)
 -}
 
 
+{-
 contextText :: [T.Text]
 contextText = ["The dog is an animal."
               ,"The bird is an animal."
@@ -53,6 +56,7 @@ data TextFlow = CSV FilePath
               | DBV3 Connection CorpusId
               | Query T.Text
 
+-}
 {-
 textFlow :: TermType Lang -> TextFlow -> IO Graph
 textFlow termType workType = do