Fix haddock parse error
[gargantext.git] / src / Gargantext / API / Metrics.hs
index 97d817d99c6974bd17e1596233e4020b26dc5a15..357653740a71b71f45929c141e6f2c579a84f7c6 100644 (file)
@@ -111,7 +111,10 @@ updateScatter' cId maybeListId tabType maybeLimit = do
   (ngs', scores) <- Metrics.getMetrics cId maybeListId tabType maybeLimit
 
   let
-    metrics      = fmap (\(Scored t s1 s2) -> Metric (unNgramsTerm t) s1 s2 (listType t ngs'))
+    metrics      = fmap (\(Scored t s1 s2) -> Metric { m_label = unNgramsTerm t
+                                                     , m_x = s1
+                                                     , m_y = s2
+                                                     , m_cat = listType t ngs' })
                  $ fmap normalizeLocal scores
     listType t m = maybe (panic errorMsg) fst $ HashMap.lookup t m
     errorMsg     = "API.Node.metrics: key absent"
@@ -282,7 +285,7 @@ updatePie cId maybeListId tabType maybeLimit = do
   pure ()
 
 updatePie' :: FlowCmdM env err m =>
-  CorpusId
+     CorpusId
   -> Maybe ListId
   -> TabType
   -> Maybe Limit