[TEXTFLOW] pipeline and workflow become textflow.

package.yaml

@@ -24,7 +24,7 @@ library:
     #  - -Werror
   exposed-modules:
   - Gargantext
-  - Gargantext.Pipeline
+  - Gargantext.TextFlow
   - Gargantext.Prelude
   - Gargantext.Core
   - Gargantext.Core.Types

src/Gargantext/Text.hs

@@ -37,9 +37,6 @@ type Context = Text -> [Text]
 
 data Viz = Graph | Phylo | Chart
 
-pipeline :: Config -> Text -> Viz
-pipeline = undefined
-
 
 -----------------------------------------------------------------
 -------------------------------------------------------------------

src/Gargantext/Pipeline.hs → src/Gargantext/TextFlow.hs

 {-|
-Module      : Gargantext.Pipeline
+Module      : Gargantext.TextFlow
 Description : Server API
 Copyright   : (c) CNRS, 2017-Present
 License     : AGPL + CECILL v3
 Maintainer  : team@gargantext.org
 Stability   : experimental
 Portability : POSIX
+
+From text to viz, all the flow of texts in Gargantext.
+
 -}
 
 {-# OPTIONS_GHC -fno-warn-name-shadowing #-}
 {-# LANGUAGE NoImplicitPrelude           #-}
 
-module Gargantext.Pipeline
+module Gargantext.TextFlow
   where
 
 import qualified Data.Text as T
@@ -53,10 +56,10 @@ import Data.Graph.Clustering.Louvain.CplusPlus (cLouvain, LouvainNode(..))
 
 -}
 
-data WorkType = CSV | FullText
+data TextFlow = CSV | FullText
 
 -- workflow :: Lang (EN|FR) -> FilePath -> Graph
-workflow termsLang workType path = do
+textflow termsLang workType path = do
   -- Text  <- IO Text <- FilePath
   contexts <- case workType of
                 FullText -> splitBy (Sentences 5) <$> readFile path
@@ -146,5 +149,3 @@ printDebug msg x = putStrLn $ msg <> " " <> show x
 --printDebug _ _ = pure ()
 
 
-
-