getConfig :: String -> Either String Config
getConfig input = case parse parseConfig "Config Error!" input of
  Left err -> Left $ show err
  Right c
    | isJust (getWidth c) -> Right c
    | isJust (getHeight c) -> Right c