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-09-16 11:39:42 +03:00
parent 3d79c74af9
commit 097915afda
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fixme-new/lib/Fixme/Run/Internal.hs
View File

@ -978,18 +978,15 @@ fixmeRefChanInit = do
, mkSym (show $ pretty (AsBase58 refchan)) , mkSym (show $ pretty (AsBase58 refchan))
] ]
let theirReaderKeyClause = maybe1 rk nil $ \(KeyringEntry pk _ _) -> do let theirReaderKeyClause = maybe1 rk ";; reader ..."$ \(KeyringEntry pk _ _) -> do
mkList @C [ mkSym "reader", mkSym (show $ pretty (AsBase58 pk) ) ] pretty $ mkList @C [ mkSym "reader", mkSym (show $ pretty (AsBase58 pk) ) ]
let theirAuthorClause = mkList @C [ mkSym "author", mkSym (show $ pretty (AsBase58 signK) ) ] let theirAuthorClause = mkList @C [ mkSym "author", mkSym (show $ pretty (AsBase58 signK) ) ]
let content = line let content = line
<> vcat [ pretty refChanClause ]
<> line
<> line
<> note <> note
<> line <> line
<> vcat [ pretty theirReaderKeyClause <> vcat [ theirReaderKeyClause
, pretty theirAuthorClause , pretty theirAuthorClause
] ]
@ -998,7 +995,9 @@ fixmeRefChanInit = do
show content show content
appendFile confFile $ show $ appendFile confFile $ show $
line <> line
<> vcat [ pretty refChanClause ]
<> line <>
pretty (mkList @C [ mkSym "source", mkSym ( "." </> rchanFile ) ]) pretty (mkList @C [ mkSym "source", mkSym ( "." </> rchanFile ) ])
notice $ green "refchan added" <+> pretty (AsBase58 refchan) notice $ green "refchan added" <+> pretty (AsBase58 refchan)