bin/gargantext-client/Options.hs

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