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

wip

This commit is contained in:
Dmitry Zuikov 2024-08-28 09:57:42 +03:00
parent 0d5d035fb6
commit 7fe9648ccc
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.fixme-new/config
View File

@ -21,8 +21,6 @@ fixme-value-set cat bug feat refactor
fixme-value-set scope mvp-0 mvp-1 backlog fixme-value-set scope mvp-0 mvp-1 backlog
fixme-value-set type bug feature code
fixme-files **/*.txt docs/devlog.md fixme-files **/*.txt docs/devlog.md
fixme-files **/*.hs fixme-files **/*.hs

8
fixme-new/lib/Fixme/Run.hs
View File

@ -139,7 +139,7 @@ runTop argz = do
let dict = makeDict @C do let dict = makeDict @C do
-- internalEntries internalEntries
entry $ bindMatch "--help" $ nil_ \case entry $ bindMatch "--help" $ nil_ \case
HelpEntryBound what -> helpEntry what HelpEntryBound what -> helpEntry what
@ -194,7 +194,7 @@ runTop argz = do
_ -> throwIO $ BadFormException @C nil _ -> throwIO $ BadFormException @C nil
entry $ bindMatch "fixme-value-set" $ nil_ \case entry $ bindMatch "fixme-value-set" $ nil_ \case
(StringLikeList (n:xs)) -> do (StringLike n : StringLikeList xs) -> do
t <- lift $ asks fixmeEnvAttribValues t <- lift $ asks fixmeEnvAttribValues
let name = fromString n let name = fromString n
let vals = fmap fromString xs & HS.fromList let vals = fmap fromString xs & HS.fromList
@ -215,6 +215,10 @@ runTop argz = do
entry $ bindMatch "env:show" $ nil_ $ const $ do entry $ bindMatch "env:show" $ nil_ $ const $ do
lift printEnv lift printEnv
entry $ bindMatch "git:commits" $ const $ do
co <- lift listCommits <&> fmap (mkStr @C . view _1)
pure $ mkList co
entry $ bindMatch "init" $ nil_ $ const $ do entry $ bindMatch "init" $ nil_ $ const $ do
lift init lift init

3
fixme-new/lib/Fixme/Types.hs
View File

@ -179,6 +179,9 @@ instance MkKey (FromFixmeKey Fixme) where
maybe k2 (mappend "A" . LBS.toStrict . serialise) (HM.lookup "fixme-key" fixmeAttr) maybe k2 (mappend "A" . LBS.toStrict . serialise) (HM.lookup "fixme-key" fixmeAttr)
where k2 = mappend "A" $ serialise fx & LBS.toStrict where k2 = mappend "A" $ serialise fx & LBS.toStrict
instance IsContext c => MkStr c GitHash where
mkStr ha = mkStr (show $ pretty ha)
instance IsContext c => MkStr c HashRef where instance IsContext c => MkStr c HashRef where
mkStr ha = mkStr (show $ pretty ha) mkStr ha = mkStr (show $ pretty ha)