globalArgSpec :: [OptDescr (Options -> Options)]
globalArgSpec =
      [ option "" ["server"] "Server to connect to" $
               reqArg "SERVER" $ \s o -> o { optServer = s }
      , option "" ["port"] "TCP port to connect to" $
               reqArg "PORT" $ \s o -> o { optPort = s }

  ]
globalArgSpec :: [OptDescr (Options -> Options)]
globalArgSpec =
      [ option "" ["server"] "Server to connect to" $
               reqArg "SERVER" $ \s o -> o { optServer = s }
      , option "" ["port"] "TCP port to connect to" $
               reqArg "PORT" $ \s o -> o { optPort = s }

  ]
globalArgSpec =
      [ option "" ["server"] "Server to connect to" $
               reqArg "SERVER" $ \s o -> o { optServer = s }
      , option "" ["port"] "TCP port to connect to" $
               reqArg "PORT" $ \s o -> o { optPort = s }

  ]