bin/gargantext-client/Options.hs

   1 {-# LANGUAGE TypeOperators #-}
   2 module Options where
   3
   4 import Prelude
   5 import Data.Maybe
   6 import Options.Generic
   7
   8 -- | Some general options to be specified on the command line.
   9 data ClientOpts = ClientOpts
  10   { url     :: String <?> "URL to gargantext backend"
  11   , user    :: Maybe Text <?> "(optional) username for auth-restricted actions"
  12   , pass    :: Maybe Text <?> "(optional) password for auth-restricted actions"
  13   , verbose :: Bool   <?> "Enable verbose output"
  14   } deriving (Generic, Show)
  15
  16 instance ParseRecord ClientOpts