diff --git a/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs b/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs index dd7f2710..6f607dda 100644 --- a/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs +++ b/hbs2-git/hbs2-git-client-lib/HBS2/Git/Client/State.hs @@ -396,7 +396,7 @@ selectRepoHeadsFor what = do SELECT t.head FROM lww l join tx t on l.reflog = t.reflog WHERE l.hash = ? -ORDER BY l.seq ASC +ORDER BY t.seq ASC |] select @(Only (TaggedHashRef RepoHead)) q (Only $ Base58Field what)