From 1448a000b668fa7afb9739051a8673ba438dccca Mon Sep 17 00:00:00 2001 From: voidlizard Date: Thu, 30 Jan 2025 10:11:46 +0300 Subject: [PATCH] wip --- hbs2-git3/lib/HBS2/Git3/Repo.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-git3/lib/HBS2/Git3/Repo.hs b/hbs2-git3/lib/HBS2/Git3/Repo.hs index 3ab1cc7a..8afdc23d 100644 --- a/hbs2-git3/lib/HBS2/Git3/Repo.hs +++ b/hbs2-git3/lib/HBS2/Git3/Repo.hs @@ -34,7 +34,7 @@ listRemotes = do (acc,_, ListVal [SymbolVal "remote", StringLike x] : rest) -> next (acc,Just x, rest) - (acc, Just x, ListVal [SymbolVal "url", _, RepoURL3 u] : rest) -> + (acc, Just x, ListVal [SymbolVal "url", _, RepoURL3 u] : rest) -> next ( (fromString x, u) : acc, Nothing, rest) (acc, x, _ : rest) -> next ( acc, x, rest)