cliOptions :: Parser CLIOptions
cliOptions = CLIOptions
          <$> option auto
            (  long "port"
            <> short 'p'
            <> metavar "PORT"
            <> help "The port Grafs runs on"
            )
cliOptions :: Parser CLIOptions
cliOptions = CLIOptions
          <$> option auto
            (  long "port"
            <> short 'p'
            <> metavar "PORT"
            <> help "The port Grafs runs on"
            )
cliOptions = CLIOptions
          <$> option auto
            (  long "port"
            <> short 'p'
            <> metavar "PORT"
            <> help "The port Grafs runs on"
            )