From c2cefea9a333856fc45a8f1c2031fc6f777800c7 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 28 Jan 2024 08:13:25 +0300 Subject: [PATCH] fixed UuoMCa4gxd --- hbs2-storage-simple/lib/HBS2/Storage/Simple.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs b/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs index ac9adf99..5d51bfb9 100644 --- a/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs +++ b/hbs2-storage-simple/lib/HBS2/Storage/Simple.hs @@ -409,7 +409,7 @@ simpleReadLinkRaw ss ref = do pure Nothing else 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 $ fromMaybe Nothing rs