Skip to content

haskell-gargantext
haskell-gargantext
Unverified Commit 9c607bee authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

<$> to .

parent 8d8f725c
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
bin/gargantext-cli/Main.hs
View file @ 9c607bee
...@@ -74,9 +74,9 @@ main = do ...@@ -74,9 +74,9 @@ main = do
--corpus :: IO (DM.IntMap [[Text]]) --corpus :: IO (DM.IntMap [[Text]])
corpus <- DM.fromListWith (<>) corpus <- DM.fromListWith (<>)
<$> DV.toList . DV.toList
<$> DV.map (\n -> (csv_publication_year n, [(csv_title n) <> " " <> (csv_abstract n)])) . DV.map (\n -> (csv_publication_year n, [(csv_title n) <> " " <> (csv_abstract n)]))
<$> snd . snd
<$> readCsv corpusFile <$> readCsv corpusFile
-- termListMap :: [Text] -- termListMap :: [Text]
......
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