Refactoring: Monoid on (,) does the right thing

30cfda50 · Nicolas Pouillard · daba6a47 · 30cfda50
Unverified Commit 30cfda50 authored Mar 26, 2019 by Nicolas Pouillard
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

NgramsByNode.hs src/Gargantext/Database/Metrics/NgramsByNode.hs +2 -3

No files found.
--- a/src/Gargantext/Database/Metrics/NgramsByNode.hs
+++ b/src/Gargantext/Database/Metrics/NgramsByNode.hs
@@ -101,9 +101,8 @@ groupNodesByNgramsWith :: (Text -> Text)
                       -> Map Text (Set NodeId)
                       -> Map Text (Set Text, Set NodeId)
 groupNodesByNgramsWith f m =
-      fromListWith (\a b -> (fst a <> fst b, snd a <> snd b))
-    $ map (\(t,ns) -> (f t, (Set.singleton t, ns)))
-    $ toList m
+      fromListWith (<>) $ map (\(t,ns) -> (f t, (Set.singleton t, ns)))
+                        $ toList m

 ------------------------------------------------------------------------
 getNodesByNgramsUser :: CorpusId -> NgramsType