From 37d3d8cedc0d6828eb3a41e59b021ea570c7dc81 Mon Sep 17 00:00:00 2001
From: Kim Altintop <kim.altintop@gmail.com>
Date: Wed, 12 Dec 2018 15:56:37 +0100
Subject: [PATCH] Fix listRefs
Would loop indefinitely when passed a 'LocalPath' containing forward slashes.
---
Data/Git/Named.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Data/Git/Named.hs b/Data/Git/Named.hs
index 93cce0e..0464264 100644
--- a/Data/Git/Named.hs
+++ b/Data/Git/Named.hs
@@ -142,7 +142,7 @@ listRefs root = listRefsAcc [] root
getRefsRecursively dir acc (x:xs) = do
isDir <- isDirectory x
extra <- if isDir
- then listRefsAcc [] dir
+ then listRefsAcc [] x
else let r = UTF8.toString $ localPathEncode $ stripRoot x
in if isValidRefName r
then return [fromString r]
--
GitLab