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