voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2024-04-21 08:01:01 +03:00
parent 433ef745de
commit ed30d09693
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/Export.hs
View File

@ -109,7 +109,6 @@ refsForExport forPushL = do
<&> mapMaybe \case <&> mapMaybe \case
[val,name] -> (GitRef (LBS8.toStrict name),) <$> fromStringMay @GitHash (LBS8.unpack val) [val,name] -> (GitRef (LBS8.toStrict name),) <$> fromStringMay @GitHash (LBS8.unpack val)
_ -> Nothing _ -> Nothing
<&> filterPat incl excl
<&> HashMap.fromList <&> HashMap.fromList
<&> HashMap.filterWithKey (\k _ -> not (HashSet.member k deleted)) <&> HashMap.filterWithKey (\k _ -> not (HashSet.member k deleted))
<&> mappend forPush <&> mappend forPush