wip

.fixme-new/config

@@ -9,12 +9,8 @@ fixme-prefix     TODO:
 fixme-prefix     PR:
 fixme-prefix     REVIEW:
 
-fixme-git-scan-filter-days 30
-
 fixme-attribs assigned workflow type
 
-fixme-attribs resolution cat scope
-
 fixme-value-set workflow new backlog wip test fixed done
 
 ; fixme-value-set cat bug feat refactor
@@ -58,7 +54,5 @@ fixme-comments ";" "--"
 
 (define (lss s) (report workflow ~ s))
 
-(define (stage) (fixme:stage:show))
-
 
 (refchan 3WtddmcE8zzgBAPR7Bu7mKMaVMTN423NNXSPUJp3Hx42)

fixme-new/fixme.cabal

@@ -112,7 +112,6 @@ library
       Fixme
       Fixme.Config
       Fixme.Run
-      Fixme.Log
       Fixme.Types
       Fixme.Prelude
       Fixme.State

fixme-new/lib/Fixme/Log.hs

@@ -1,31 +0,0 @@
-module Fixme.Log where
-
-import Fixme.Prelude
-import Fixme.Types
-
-import HBS2.Storage.Compact
-
-import Data.Config.Suckless
-
-import Data.ByteString.Lazy qualified as LBS
-import Data.Maybe
-import Data.Either
-
-{- HLINT ignore "Functor law"-}
-
-loadAllEntriesFromLog :: FixmePerks m
-                      => CompactStorage HbSync
-                      -> FixmeM m [Syntax C]
-loadAllEntriesFromLog sto = do
-    ks <- keys sto
-
-    entries <- mapM (get sto) ks
-                <&> catMaybes
-                <&> fmap (deserialiseOrFail @CompactAction . LBS.fromStrict)
-                <&> rights
-
-    let top = show $ vcat (fmap pretty entries)
-    let theLog = parseTop top & fromRight mempty
-
-    pure theLog
-

fixme-new/lib/Fixme/Run.hs

@@ -8,7 +8,6 @@ import Fixme.State
 import Fixme.Run.Internal
 import Fixme.Scan.Git.Local as Git
 import Fixme.Scan as Scan
-import Fixme.Log
 
 import Data.Config.Suckless.Script.File
 
@@ -222,13 +221,6 @@ runTop forms = do
         _ -> throwIO $ BadFormException @C nil
 
 
-       entry $ bindMatch "fixme-git-scan-filter-days" $ nil_ \case
-        [LitIntVal d] -> do
-          t <- lift $ asks fixmeEnvGitScanDays
-          atomically (writeTVar t (Just d))
-
-        _ -> throwIO $ BadFormException @C nil
-
        entry $ bindMatch "fixme-attribs" $ nil_ \case
         StringLikeList xs -> do
           ta <- lift $ asks fixmeEnvAttribs

fixme-new/lib/Fixme/Run/Internal.hs

@@ -9,7 +9,6 @@ import Fixme.Config
 import Fixme.State
 import Fixme.Scan.Git.Local as Git
 import Fixme.Scan as Scan
-import Fixme.Log
 
 import HBS2.Git.Local.CLI
 

fixme-new/lib/Fixme/RunOld.hs

@@ -10,7 +10,6 @@ import Fixme.Config
 import Fixme.State
 import Fixme.Scan.Git.Local as Git
 import Fixme.Scan as Scan
-import Fixme.Log
 
 import HBS2.Git.Local.CLI
 

fixme-new/lib/Fixme/Scan/Git/Local.hs

@@ -9,7 +9,6 @@ import Fixme.Prelude hiding (indent)
 import Fixme.Types
 import Fixme.State
 import Fixme.Scan as Scan
-import Fixme.Log
 
 import HBS2.Storage
 import HBS2.Storage.Compact
@@ -51,24 +50,6 @@ import Data.Map qualified as Map
 
 import Streaming.Prelude qualified as S
 
-data ScanGitArgs =
-    PrintBlobs
-  | PrintFixme
-  | ScanRunDry
-  | ScanAllCommits
-  deriving stock (Eq,Ord,Show,Data,Generic)
-
-pattern ScanGitArgs :: forall {c} . ScanGitArgs -> Syntax c
-pattern ScanGitArgs w <- ( scanGitArg -> Just w )
-
-scanGitArg :: Syntax c -> Maybe ScanGitArgs
-scanGitArg = \case
-  SymbolVal "print-blobs" -> Just PrintBlobs
-  SymbolVal "print-fixme" -> Just PrintFixme
-  SymbolVal "dry"         -> Just ScanRunDry
-  SymbolVal "all-commits" -> Just ScanAllCommits
-  _ -> Nothing
-
 
 {- HLINT ignore "Functor law" -}
 

hbs2-tests/hbs2-tests.cabal

@@ -128,7 +128,6 @@ executable test-udp
 
     -- other-extensions:
 
-    -- type:             exitcode-stdio-1.0
     hs-source-dirs:   test
     main-is:          TestUDP.hs
 
@@ -866,7 +865,6 @@ executable test-notify
 
     -- other-extensions:
 
-    type:             exitcode-stdio-1.0
     hs-source-dirs:   test/notify-unix
     main-is:          Main.hs
     build-depends:
@@ -910,7 +908,6 @@ executable test-playground
 
     -- other-extensions:
 
-    type:             exitcode-stdio-1.0
     hs-source-dirs:   test/playground
     main-is:          Main.hs
     build-depends:
@@ -961,7 +958,6 @@ executable test-pipe-mess
 
     -- other-extensions:
 
-    type:             exitcode-stdio-1.0
     hs-source-dirs:   test
     main-is:          TestPipeMessaging.hs
     build-depends: