launchDDisplayInfo :: String -> DispName
launchDDisplayInfo str = case parseDisplay (dropWhile (/= ':') str) of
                    Left{} -> defaultDisplayInfo
                    Right d -> d
launchDDisplayInfo :: String -> DispName
launchDDisplayInfo str = case parseDisplay (dropWhile (/= ':') str) of
                    Left{} -> defaultDisplayInfo
                    Right d -> d
launchDDisplayInfo str = case parseDisplay (dropWhile (/= ':') str) of
                    Left{} -> defaultDisplayInfo
                    Right d -> d