Skip to content

H
haskell-gargantext
Commit 6c9f6a78 authored by qlobbe's avatar qlobbe
Browse files
Options

first commit

parent 45f5e207
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 0 deletions
bin/gargantext-adaptative-phylo/Main.hs
View file @ 6c9f6a78
...@@ -124,6 +124,11 @@ fileToDocs parser path lst = do ...@@ -124,6 +124,11 @@ fileToDocs parser path lst = do
let patterns = buildPatterns lst let patterns = buildPatterns lst
pure $ map ( (\(y,t) -> Document y t) . filterTerms patterns) corpus pure $ map ( (\(y,t) -> Document y t) . filterTerms patterns) corpus
-- configToLabel :: Config -> Text
-- configToFile confif = label
-- where
-- label :: Text
-- label = outputPath config
-------------- --------------
-- | Main | -- -- | Main | --
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment