From 6aec32248a40cab70a1866a9b1d47c9bfafd8577 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 30 Aug 2024 15:42:03 +0300
Subject: [PATCH] wip

---
 fixme-new/lib/Fixme/Run.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs
index eea2d299..379752a5 100644
--- a/fixme-new/lib/Fixme/Run.hs
+++ b/fixme-new/lib/Fixme/Run.hs
@@ -270,6 +270,12 @@ runTop forms = do
 
          pure $ mkList elems
 
+       -- TODO: implement-fixme:refchan:export
+       entry $ bindMatch "fixme:refchan:export" $ nil_ \case
+        _ -> none
+
+       -- TODO: implement-fixme:refchan:import
+
        entry $ bindMatch "fixme:log:export" $ nil_ \case
         [StringLike fn] -> do
            lift $ exportToLog fn
@@ -331,7 +337,7 @@ runTop forms = do
        entry $ bindMatch "fixme:stage:clean" $ nil_ $ const do
           lift cleanStage
 
-       entry $ bindMatch "fixme:scan-git-local" $ nil_ $ const do
+       entry $ bindMatch "git:import" $ nil_ $ const do
         lift $ scanGitLocal mempty Nothing
 
        entry $ bindMatch "git:blobs" $  \_ -> do