-- | Parse the contents of an X11 DISPLAY environment variable.
-- TODO: make a public version (see xcb_parse_display)
parseDisplay :: String -> Either ParseError DispName
parseDisplay [] = Right defaultDisplayInfo
parseDisplay :: String -> Either ParseError DispName
parseDisplay [] = Right defaultDisplayInfo
parseDisplay [] = Right defaultDisplayInfo