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:48:37 +03:00
parent 60a41e09c6
commit 319286274a
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -404,7 +404,9 @@ insertFixme fme = do
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 nonce = case when excluded.w > object.w and (excluded.v <> object.v) then null
else object.nonce
end
|] |]
for_ (fixmeStart fme) $ \s -> do for_ (fixmeStart fme) $ \s -> do
@ -466,10 +468,7 @@ insertFixmeExported h item = do
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 = case nonce = excluded.nonce
when excluded.w > object.w and (excluded.v <> object.v) then excluded.nonce
else object.nonce
end
|] |]
insert sql (WithNonce h item) insert sql (WithNonce h item)