Skip to content

P
purescript-gargantext
Unverified Commit f28b2d1f authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

[REFACTOR] NgramsTable use operator sections

parent d3cb492f
Show whitespace changes
Inline Side-by-side
Showing with 2 additions and 9 deletions
src/Gargantext/Pages/Corpus/Tabs/Terms/NgramsTable.purs
View file @ f28b2d1f
...@@ -316,8 +316,8 @@ pagination d tp cp ...@@ -316,8 +316,8 @@ pagination d tp cp
text " ... " text " ... "
else else
text "" text ""
lnums = map (\i -> fnmid d i) $ filter (lessthan 1) [cp - 2, cp - 1] lnums = map (\i -> fnmid d i) $ filter (1 < _) [cp - 2, cp - 1]
rnums = map (\i -> fnmid d i) $ filter (greaterthan tp) [cp + 1, cp + 2] rnums = map (\i -> fnmid d i) $ filter (tp > _) [cp + 1, cp + 2]
fnmid :: Dispatch -> Int -> ReactElement fnmid :: Dispatch -> Int -> ReactElement
fnmid d i fnmid d i
...@@ -328,10 +328,3 @@ fnmid d i ...@@ -328,10 +328,3 @@ fnmid d i
] [text $ show i] ] [text $ show i]
, text " " , text " "
] ]
lessthan :: forall t28. Ord t28 => t28 -> t28 -> Boolean
lessthan x y = x < y
greaterthan :: forall t28. Ord t28 => t28 -> t28 -> Boolean
greaterthan x y = x > y
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