wip

hbs2-git-dashboard/app/GitDashBoard.hs

@@ -589,6 +589,12 @@ theDict = do
         for_ rs $ \(r,f) -> do
           liftIO $ print $ pretty r <+> pretty (AsBase58 f)
 
+      entry $ bindMatch "debug:check-fixme-allowed" $ nil_ $ \case
+        [SignPubKeyLike s] -> do
+           what <- lift $ checkFixmeAllowed (RepoLww (LWWRefKey s))
+           liftIO $ print $ pretty what
+
+        _ -> throwIO $ BadFormException @C nil
 
 main :: IO ()
 main = do

hbs2-git-dashboard/hbs2-git-dashboard-core/HBS2/Git/DashBoard/Fixme.hs

@@ -2,10 +2,16 @@ module HBS2.Git.DashBoard.Fixme where
 
 import HBS2.Git.DashBoard.Prelude
 import HBS2.Git.DashBoard.Types
+import HBS2.Git.DashBoard.State
 
--- import Fixme.State
+import Fixme.State
+import Fixme.Types
+
+withFixme :: (DashBoardPerks m, MonadReader DashBoardEnv m) => RepoLww -> FixmeM m a ->  m ()
+withFixme repo m = do
+  p <- fixmeDataPath (coerce repo)
+  debug $ pretty p
 
 
--- runFixme ::
 
 

hbs2-git-dashboard/hbs2-git-dashboard.cabal

@@ -76,6 +76,7 @@ library hbs2-git-dashboard-core
       , hbs2-keyman-direct-lib
       , db-pipe
       , suckless-conf
+      , fixme-new
 
       , aeson
       , atomic-write