dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-07-28 20:50:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

log file name in fixFileSize

Browse Source
This commit is contained in:
Evgeny Poberezkin
2024-10-23 12:04:15 +01:00
parent 5ed4a04f96
commit cabfee51f6
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Server/MsgStore/Journal.hs
+5 -3
View File
@@ -496,11 +496,13 @@ fixFileSize h pos = do
size <- IO.hFileSize h
if
| size > pos' -> do
logWarn $ "STORE: fixFileSize, file is bigger - truncating, from " <> tshow size <> " to " <> tshow pos
name <- IO.hShow h
logWarn $ "STORE: fixFileSize, file size " <> tshow size <> " is bigger than position " <> tshow pos <> " - truncating, " <> T.pack name
IO.hSetFileSize h pos'
| size < pos' ->
| size < pos' -> do
-- From code logic this can't happen.
E.throwIO $ userError $ "fixFileSize, file is smaller, size " <> show size <> " position " <> show pos
name <- IO.hShow h
E.throwIO $ userError $ "fixFileSize, file size " <> show size <> " is smaller than position " <> show pos <> " - aborting, " <> name
| otherwise -> pure ()
removeJournal :: FilePath -> JournalState t -> IO ()