Skip to content

haskell-gargantext
haskell-gargantext
Commit ef1ceba3 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[CLI] use cooc without stem.

parent 4c7bf0f4
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
bin/gargantext-cli/Main.hs
View file @ ef1ceba3
......@@ -39,7 +39,7 @@ import Gargantext.Text.Terms.WithList
import Gargantext.Text.Parsers.CSV (readCsv, csv_title, csv_abstract)
import Gargantext.Text.List.CSV (csvGraphTermList)
import Gargantext.Text.Terms (terms)
import Gargantext.Text.Metrics.Count (cooc)
import Gargantext.Text.Metrics.Count (coocOn)
mapMP :: MonadIO m => (a -> m b) -> [a] -> m [b]
mapMP f xs = do
......@@ -70,7 +70,7 @@ main = do
let patterns = WithList $ buildPatterns termList
corpusIndexed <- mapMP (terms patterns) corpus
mapM (putStrLn . show) corpusIndexed
let myCooc = cooc corpusIndexed
let myCooc = coocOn identity corpusIndexed
putStrLn $ show myCooc
--writeFile outputFile cooc
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