src/Gargantext/Prelude/Utils.hs

   1 {-|
   2 Module      : Gargantext.Prelude.Utils
   3 Description : Useful Tools near Prelude of the project
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 TODO_1: qualitative  tests (human)
  11 TODO_2: quantitative tests (coded)
  12
  13
  14 -}
  15
  16 module Gargantext.Prelude.Utils
  17   where
  18
  19 import Control.Monad.Random.Class (MonadRandom)
  20 import qualified System.Random.Shuffle as SRS
  21
  22 ------------------------------------------------------------------------
  23 -- | Misc Utils
  24 shuffle :: MonadRandom m => [a] -> m [a]
  25 shuffle ns = SRS.shuffleM ns
  26 --------------------------------------------------------------------------
  27
  28 -- TODO gargDB instance for NodeType
  29 {-
  30 data NodeToHash = NodeToHash { nodeType :: NodeType
  31                              , nodeId   :: NodeId
  32                              }
  33 -}