From fc9b0ffb4089d8d0cda91cc5345a46c4afa7a216 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 6 Mar 2024 16:16:44 +0300 Subject: [PATCH] fixed bug? with readRef --- hbs2-git/lib/HBS2Git/App.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-git/lib/HBS2Git/App.hs b/hbs2-git/lib/HBS2Git/App.hs index d9009f89..4c343ba0 100644 --- a/hbs2-git/lib/HBS2Git/App.hs +++ b/hbs2-git/lib/HBS2Git/App.hs @@ -286,7 +286,7 @@ readBlock h = do readRef :: (HasStorage m, MonadIO m) => RepoRef -> m (Maybe HashRef) readRef ref = do sto <- getStorage - liftIO (getRef sto (refAlias ref)) <&> fmap HashRef + liftIO (getRef sto ref) <&> fmap HashRef readHashesFromBlock :: (MonadIO m, HasStorage m) => HashRef -> m [HashRef] readHashesFromBlock (HashRef h) = do