Skip to content

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

[TextFlow] Type rename (records missing)

parent 424213e0
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 4 deletions
src/Gargantext/Core/Text/Metrics.hs
View file @ 1e877937
...@@ -57,8 +57,8 @@ scored = map2scored . (pcaReduceTo (Dimension 2)) . scored2map ...@@ -57,8 +57,8 @@ scored = map2scored . (pcaReduceTo (Dimension 2)) . scored2map
-- TODO change type with (x,y) -- TODO change type with (x,y)
data Scored ts = Scored data Scored ts = Scored
{ _scored_terms :: !ts { _scored_terms :: !ts
, _scored_incExc :: !GenericityInclusion , _scored_genInc :: !GenericityInclusion
, _scored_speGen :: !SpecificityExclusion , _scored_speExc :: !SpecificityExclusion
} deriving (Show) } deriving (Show)
localMetrics' :: Ord t => Map (t,t) Int -> Map t (Vec.Vector Double) localMetrics' :: Ord t => Map (t,t) Int -> Map t (Vec.Vector Double)
...@@ -87,8 +87,8 @@ scored' m = zipWith (\(_,t) (inc,spe) -> Scored t inc spe) (Map.toList fi) score ...@@ -87,8 +87,8 @@ scored' m = zipWith (\(_,t) (inc,spe) -> Scored t inc spe) (Map.toList fi) score
takeScored :: Ord t => MapListSize -> InclusionSize -> Map (t,t) Int -> ([t],[t]) takeScored :: Ord t => MapListSize -> InclusionSize -> Map (t,t) Int -> ([t],[t])
takeScored listSize incSize = both (map _scored_terms) takeScored listSize incSize = both (map _scored_terms)
. takeLinear listSize incSize _scored_speGen . takeLinear listSize incSize _scored_genInc
_scored_incExc _scored_speExc
. scored . scored
......
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