dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-03-30 20:45:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

core: add error strings to SQLCipher encrypt/decrypt commands (#1014)

Browse Source
This commit is contained in:
Evgeny Poberezkin
2022-09-03 19:32:21 +01:00
committed by GitHub
parent 19f3890bed
commit a8216bbd54
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Simplex/Chat/Archive.hs
View File

@@ -130,7 +130,7 @@ export f key key' = do
where
withDB a err =
liftIO (bracket (SQL.open $ T.pack f) SQL.close a)
`catch` \(e :: SomeException) -> liftIO (putStrLn $ "Database error: " <> show e) >> throwDBError err
`catch` \(e :: SomeException) -> liftIO (putStrLn $ "Database error: " <> show e) >> throwDBError (err $ show e)
exportSQL =
T.unlines $
keySQL key

4
src/Simplex/Chat/Controller.hs
View File

@@ -434,8 +434,8 @@ instance ToJSON ChatErrorType where
data DatabaseError
= DBENotEncrypted
| DBENoFile
| DBEExportFailed
| DBEOpenFailed
| DBEExportFailed {databaseError :: String}
| DBEOpenFailed {databaseError :: String}
deriving (Show, Exception, Generic)
instance ToJSON DatabaseError where