[DOC] minor

src/Gargantext/Prelude/Fibonacci.hs

@@ -7,8 +7,9 @@ Maintainer  : team@gargantext.org
 Stability   : experimental
 Portability : POSIX
 
+Nice optimization of the Fibonacci function.
 
-Source: 
+Source:
 Gabriel Gonzales, Blazing fast Fibonacci numbers using Monoids, 2020-04,
 http://www.haskellforall.com/2020/04/blazing-fast-fibonacci-numbers-using.html
 (This post illustrates a nifty application of Haskell’s standard library to solve a numeric problem.)

src/Gargantext/Text/List.hs

@@ -139,11 +139,10 @@ buildNgramsTermsList :: Lang
                      -> MasterCorpusId
                      -> Cmd err (Map NgramsType [NgramsElement])
 buildNgramsTermsList l n m s uCid mCid = do
-  candidates <- sortTficf Up <$> getTficf uCid mCid NgramsTerms (ngramsGroup l n m)
+  candidates <- sortTficf Down <$> getTficf uCid mCid NgramsTerms (ngramsGroup l n m)
 
   let
     candidatesSize = 400
-
 {-
     a = 50
     b = 50