From 889947bf517f85e898de22b305098ea77b4185d8 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 28 Jan 2024 07:26:14 +0300 Subject: [PATCH] fixed UuoMCa4gxd --- .fixme/log | 2 +- hbs2-storage-simple/lib/HBS2/Storage/Simple.hs | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/.fixme/log b/.fixme/log index b39442b4..2da00207 100644 --- a/.fixme/log +++ b/.fixme/log @@ -1,2 +1,2 @@ -(fixme-set "workflow" "done" "UuoMCa4gxd") \ No newline at end of file +(fixme-set "workflow" "done" "RsTry2C5Gk") \ No newline at end of file diff --git a/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs b/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs index 073ef397..ac9adf99 100644 --- a/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs +++ b/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs @@ -408,10 +408,8 @@ simpleReadLinkRaw ss ref = do if deleted == Just True then do pure Nothing else do - -- FIXME: log-this-situation (Just <$> LBS.readFile fn) `catchAny` \e -> do - -- TODO: update-stats-instead-of-spamming - err $ "simpleReadLinkRaw" <+> pretty ref <+> pretty fn <+> viaShow e + warn $ "simpleReadLinkRaw" <+> pretty ref <+> pretty fn <+> viaShow e pure Nothing pure $ fromMaybe Nothing rs