voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed UuoMCa4gxd

This commit is contained in:
Dmitry Zuikov 2024-01-28 07:26:14 +03:00
parent f0b2c4318d
commit 889947bf51
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.fixme/log
View File

@ -1,2 +1,2 @@
(fixme-set "workflow" "done" "UuoMCa4gxd") (fixme-set "workflow" "done" "RsTry2C5Gk")

4
hbs2-storage-simple/lib/HBS2/Storage/Simple.hs
View File

@ -408,10 +408,8 @@ simpleReadLinkRaw ss ref = do
if deleted == Just True then do if deleted == Just True then do
pure Nothing pure Nothing
else do else do
-- FIXME: log-this-situation
(Just <$> LBS.readFile fn) `catchAny` \e -> do (Just <$> LBS.readFile fn) `catchAny` \e -> do
-- TODO: update-stats-instead-of-spamming warn $ "simpleReadLinkRaw" <+> pretty ref <+> pretty fn <+> viaShow e
err $ "simpleReadLinkRaw" <+> pretty ref <+> pretty fn <+> viaShow e
pure Nothing pure Nothing
pure $ fromMaybe Nothing rs pure $ fromMaybe Nothing rs