From ed30d0969338143d3849a412c6ee30b02f6c8f8a Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 21 Apr 2024 08:01:01 +0300 Subject: [PATCH] wip --- hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/Export.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/Export.hs b/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/Export.hs index 37d4ee9d..edb94904 100644 --- a/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/Export.hs +++ b/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/Export.hs @@ -109,7 +109,6 @@ refsForExport forPushL = do <&> mapMaybe \case [val,name] -> (GitRef (LBS8.toStrict name),) <$> fromStringMay @GitHash (LBS8.unpack val) _ -> Nothing - <&> filterPat incl excl <&> HashMap.fromList <&> HashMap.filterWithKey (\k _ -> not (HashSet.member k deleted)) <&> mappend forPush