first commit

6c9f6a78 · qlobbe · 45f5e207 · 6c9f6a78
Commit 6c9f6a78 authored Mar 18, 2021 by qlobbe
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

Main.hs bin/gargantext-adaptative-phylo/Main.hs +5 -0

No files found.
--- a/bin/gargantext-adaptative-phylo/Main.hs
+++ b/bin/gargantext-adaptative-phylo/Main.hs
@@ -124,6 +124,11 @@ fileToDocs parser path lst = do
  let patterns = buildPatterns lst
  pure $ map ( (\(y,t) -> Document y t) . filterTerms patterns) corpus

+-- configToLabel :: Config -> Text
+-- configToFile confif = label
+--   where 
+--     label :: Text
+--     label = outputPath config

 --------------
 -- | Main | --