<$> to .

9c607bee · Nicolas Pouillard · 8d8f725c · 9c607bee
Unverified Commit 9c607bee authored Jul 04, 2018 by Nicolas Pouillard
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

Main.hs bin/gargantext-cli/Main.hs +3 -3

No files found.
--- a/bin/gargantext-cli/Main.hs
+++ b/bin/gargantext-cli/Main.hs
@@ -74,9 +74,9 @@ main = do

  --corpus :: IO (DM.IntMap [[Text]])
  corpus <- DM.fromListWith (<>)
-                           <$> DV.toList
-                           <$> DV.map (\n -> (csv_publication_year n, [(csv_title n) <> " " <> (csv_abstract n)]))
-                           <$> snd
+                             . DV.toList
+                             . DV.map (\n -> (csv_publication_year n, [(csv_title n) <> " " <> (csv_abstract n)]))
+                             . snd
                           <$> readCsv corpusFile

  -- termListMap :: [Text]