diff --git a/hbs2-git/git-remote-hbs2/Main.hs b/hbs2-git/git-remote-hbs2/Main.hs index d600be82..6ec3f9fd 100644 --- a/hbs2-git/git-remote-hbs2/Main.hs +++ b/hbs2-git/git-remote-hbs2/Main.hs @@ -175,6 +175,9 @@ main = do ("list" : _) -> do + -- FIXME: may-cause-reference-inconsistency + -- надо брать max(head) для lwwref + -- а не максимальную транзу, накаченную на репо r' <- runMaybeT $ withState do tx <- selectMaxAppliedTx >>= lift . toMPlus <&> fst