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-11 12:37:41 +03:00
parent a0ca26499a
commit 60a41e09c6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fixme-new/lib/Fixme/State.hs
View File

@ -403,7 +403,8 @@ insertFixme fme = do
w = case w = case
when excluded.w > object.w and (excluded.v <> object.v) then excluded.w when excluded.w > object.w and (excluded.v <> object.v) then excluded.w
else object.w else object.w
end end,
nonce = null
|] |]
for_ (fixmeStart fme) $ \s -> do for_ (fixmeStart fme) $ \s -> do
@ -466,7 +467,7 @@ insertFixmeExported h item = do
else object.w else object.w
end, end,
nonce = case nonce = case
when excluded.w > object.w and (excluded.v <> object.v) then null when excluded.w > object.w and (excluded.v <> object.v) then excluded.nonce
else object.nonce else object.nonce
end end
|] |]