src/Gargantext/Core/Utils.hs

   1 {-|
   2 Module      : Gargantext.Utils
   3 Description :
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 Here is a longer description of this module, containing some
  11 commentary with @some markup@.
  12 -}
  13
  14
  15 module Gargantext.Core.Utils (
  16                            -- module Gargantext.Utils.Chronos
  17                              module Gargantext.Core.Utils.Prefix
  18                            , something
  19                           ) where
  20
  21 import Data.Maybe
  22 import Data.Monoid
  23
  24 -- import Gargantext.Utils.Chronos
  25 import Gargantext.Core.Utils.Prefix
  26
  27
  28
  29 something :: Monoid a => Maybe a -> a
  30 something Nothing  = mempty
  31 something (Just a) = a