15 lines
260 B
Haskell
15 lines
260 B
Haskell
|
module Client.Types where
|
||
|
|
||
|
import Options.Applicative as O
|
||
|
|
||
|
newtype Options = Options
|
||
|
{ optSockLoc :: FilePath
|
||
|
}
|
||
|
|
||
|
options :: O.Parser Options
|
||
|
options = Options
|
||
|
<$> argument str
|
||
|
( metavar "FILEPATH"
|
||
|
<> help "Location of the server's socket"
|
||
|
)
|