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 08:13:25 +03:00
parent e6ae5fb593
commit c2cefea9a3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -409,7 +409,7 @@ simpleReadLinkRaw ss ref = do
pure Nothing pure Nothing
else do else do
(Just <$> LBS.readFile fn) `catchAny` \e -> do (Just <$> LBS.readFile fn) `catchAny` \e -> do
warn $ "simpleReadLinkRaw" <+> pretty ref <+> pretty fn <+> viaShow e trace $ "simpleReadLinkRaw" <+> pretty ref <+> pretty fn <+> viaShow e
pure Nothing pure Nothing
pure $ fromMaybe Nothing rs pure $ fromMaybe Nothing rs