unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-21 15:28:15 +03:00
Code Issues Projects Releases Wiki Activity

⅄ 21-12-01-db-open-fix

Browse Source
This commit is contained in:
Mitchell Rosen 2021-12-02 13:26:13 -05:00
commit eaf3ede9bc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
parser-typechecker/src/Unison/Codebase/SqliteCodebase.hs
View File

@ -1055,7 +1055,7 @@ viewRemoteBranch' (repo, sbh, path) action = UnliftIO.try do
--
-- FIXME it would probably make more sense to define some proper preconditions on `sqliteCodebase`, and perhaps update
-- its output type, which currently indicates the only way it can fail is with an `UnknownSchemaVersion` error.
(withConnection "" remotePath \_ -> pure ()) `catch` \sqlError ->
(withConnection "codebase exists check" remotePath \_ -> pure ()) `catch` \sqlError ->
case Sqlite.sqlError sqlError of
Sqlite.ErrorCan'tOpen -> throwIO (C.GitSqliteCodebaseError (GitError.NoDatabaseFile repo remotePath))
-- Unexpected error from sqlite