bin/gargantext-client/Options.hs

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