app/Main.hs

   1 {-|
   2 Module      : Main.hs
   3 Description : Gargantext starter
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9
  10 <<<<<<< HEAD
  11 Script to start gargantext with different modes (Dev, Prod, Mock).
  12
  13 -}
  14
  15 {-# LANGUAGE DataKinds         #-}
  16 {-# LANGUAGE DeriveGeneric     #-}
  17 {-# LANGUAGE FlexibleInstances #-}
  18 {-# LANGUAGE NoImplicitPrelude #-}
  19 {-# LANGUAGE OverloadedStrings #-}
  20 {-# LANGUAGE StandaloneDeriving #-}
  21 {-# LANGUAGE TypeOperators     #-}
  22 {-# LANGUAGE Strict             #-}
  23
  24 module Main where
  25
  26
  27 import Options.Generic
  28 import Data.Text (unpack)
  29
  30 import Gargantext.Prelude
  31 import Gargantext.API (startGargantext, startGargantextMock)
  32
  33 --------------------------------------------------------
  34 -- Graph Tests
  35 --import qualified Gargantext.Graph.Utils                    as U
  36 --import qualified Gargantext.Graph.Distances.Conditional    as C
  37 --import qualified Gargantext.Graph.Distances.Distributional as D
  38 --import qualified Gargantext.Graph.Distances.Matrice        as M
  39 --------------------------------------------------------
  40
  41 data Mode = Dev | Mock | Prod
  42        deriving (Show, Read, Generic)
  43 instance ParseRecord Mode
  44 instance ParseField  Mode
  45 instance ParseFields Mode
  46
  47
  48 data MyOptions w = MyOptions { run  :: w ::: Mode        <?> "Possible modes: Dev | Mock | Prod"
  49                              , port :: w ::: Maybe Int   <?> "By default: 8008"
  50                              , ini  :: w ::: Maybe Text  <?> "Ini-file path of gargantext.ini"
  51                              }
  52           deriving (Generic)
  53
  54 instance ParseRecord (MyOptions Wrapped)
  55 deriving instance Show (MyOptions Unwrapped)
  56
  57
  58
  59 main :: IO ()
  60 main = do
  61     MyOptions myMode myPort myIniFile  <- unwrapRecord
  62             "Gargantext: collaborative platform for text-mining"
  63
  64     let myPort' = case myPort of
  65             Just p  -> p
  66             Nothing -> 8008
  67
  68     let start = case myMode of
  69             --Nothing   -> startGargantext myPort' (unpack myIniFile')
  70             Prod -> startGargantext myPort' (unpack myIniFile')
  71                     where
  72                         myIniFile' = case myIniFile of
  73                                        Nothing -> panic "For Prod mode, you need to fill a gargantext.ini file"
  74                                        Just i  -> i
  75             Mock -> startGargantextMock myPort'
  76             _  -> startGargantextMock myPort'
  77
  78     putStrLn $ "Starting Gargantext with mode: " <> show myMode
  79     start
  80
  81 -- main' :: IO ()
  82 --main' = putStrLn $ show $ M.conditional $ M.myMat 10
  83
  84