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)