From 340bb9aaa8cf70e9b5c1cac6b3d9e4dde3cdd609 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Sat, 11 Jan 2025 15:28:41 +0300 Subject: [PATCH] wip, renamed function --- hbs2-git3/app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs index b4b39268..78aa80dd 100644 --- a/hbs2-git3/app/Main.hs +++ b/hbs2-git3/app/Main.hs @@ -1172,7 +1172,7 @@ theDict = do notice $ pretty tree 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 dry = or [ True | ListVal [StringLike "--dry"] <- opts ]