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

wip, renamed function

This commit is contained in:
voidlizard 2025-01-11 15:28:41 +03:00
parent 8a5ffe2e7b
commit 340bb9aaa8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-git3/app/Main.hs
View File

@ -1172,7 +1172,7 @@ theDict = do
notice $ pretty tree notice $ pretty tree
none none
entry $ bindMatch "test:git:export" $ nil_ $ \syn -> lift $ connectedDo do entry $ bindMatch "reflog:export" $ nil_ $ \syn -> lift $ connectedDo do
let (opts, argz) = splitOpts [("--dry",0),("--ref",1)] syn let (opts, argz) = splitOpts [("--dry",0),("--ref",1)] syn
let dry = or [ True | ListVal [StringLike "--dry"] <- opts ] let dry = or [ True | ListVal [StringLike "--dry"] <- opts ]