]> Git — Sourcephile - gargantext.git/blob - bin/gargantext-client/Options.hs
[conduit] some work towards flow migration to conduit
[gargantext.git] / 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