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