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

Patch incorrect sqlite queries

Browse Source
This commit is contained in:
Chris Penner 2023-03-07 09:48:16 -06:00
parent 47676eca54
commit 909ca8105e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
codebase2/codebase-sqlite/U/Codebase/Sqlite/Queries.hs
View File

@ -254,8 +254,8 @@ import qualified Data.Text as Text
import qualified Data.Vector as Vector
import NeatInterpolation (trimming)
import Network.URI (URI)
import U.Codebase.Branch.Type (NamespaceStats (..))
import Network.URI.Orphans.Sqlite ()
import U.Codebase.Branch.Type (NamespaceStats (..))
import qualified U.Codebase.Decl as C
import qualified U.Codebase.Decl as C.Decl
import U.Codebase.HashTags (BranchHash (..), CausalHash (..), PatchHash (..))
@ -2825,7 +2825,7 @@ expectRemoteProjectName projectId host =
id = ?
AND host = ?
|]
(Only projectId)
(projectId, host)
setRemoteProjectName :: RemoteProjectId -> Text -> Transaction ()
setRemoteProjectName rpid name =
@ -2856,7 +2856,7 @@ loadRemoteBranch rpid host rbid =
AND branch_id = ?
AND host = ?
|]
(rpid, host, rbid)
(rpid, rbid, host)
ensureRemoteProjectBranch :: RemoteProjectId -> URI -> RemoteProjectBranchId -> Text -> Transaction ()
ensureRemoteProjectBranch rpid host rbid name =