@@ -497,9 +497,9 @@ getHubAuth
497497 -> IO (Maybe Auth)
498498getHubAuth domain = do
499499 hubConfig <- getXdgDirectory XdgConfig "hub"
500− Yaml.decodeFile hubConfig >>= \case
501− Nothing -> return Nothing
502− Just v -> return $ flip parseMaybe v $ \v' -> do
500+ Yaml.decodeFileEither hubConfig >>= \case
501+ Left _ -> return Nothing
502+ Right v -> return $ flip parseMaybe v $ \v' -> do
503503 Yaml.Array domainConfigs <- v' .: domain --TODO: Determine what multiple domainConfigs means
504504 [Yaml.Object domainConfig] <- return $ toList domainConfigs
505505 token <- domainConfig .: "oauth_token"