From 319286274ac7d564e2d00dce6c3547c98c25a4e8 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 11 Sep 2024 12:48:37 +0300 Subject: [PATCH] wip --- fixme-new/lib/Fixme/State.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/fixme-new/lib/Fixme/State.hs b/fixme-new/lib/Fixme/State.hs index 5180104f..30de4d25 100644 --- a/fixme-new/lib/Fixme/State.hs +++ b/fixme-new/lib/Fixme/State.hs @@ -404,7 +404,9 @@ insertFixme fme = do when excluded.w > object.w and (excluded.v <> object.v) then excluded.w else object.w 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 @@ -466,10 +468,7 @@ insertFixmeExported h item = do when excluded.w > object.w and (excluded.v <> object.v) then excluded.w else object.w end, - nonce = case - when excluded.w > object.w and (excluded.v <> object.v) then excluded.nonce - else object.nonce - end + nonce = excluded.nonce |] insert sql (WithNonce h item)