-- | Open a Handle to the X11 server specified in the argument.  The DISPLAY
-- environment variable is consulted if the argument is null.
open :: String -> IO (Handle , Maybe Xauth, DispName)
open [] = (getEnv "DISPLAY") >>= open
open :: String -> IO (Handle , Maybe Xauth, DispName)
open [] = (getEnv "DISPLAY") >>= open
open [] = (getEnv "DISPLAY") >>= open