voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed bug? with readRef

This commit is contained in:
Dmitry Zuikov 2024-03-06 16:16:44 +03:00
parent e9c7c9dbae
commit fc9b0ffb40
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-git/lib/HBS2Git/App.hs
View File

@ -286,7 +286,7 @@ readBlock h = do
readRef :: (HasStorage m, MonadIO m) => RepoRef -> m (Maybe HashRef) readRef :: (HasStorage m, MonadIO m) => RepoRef -> m (Maybe HashRef)
readRef ref = do readRef ref = do
sto <- getStorage sto <- getStorage
liftIO (getRef sto (refAlias ref)) <&> fmap HashRef liftIO (getRef sto ref) <&> fmap HashRef
readHashesFromBlock :: (MonadIO m, HasStorage m) => HashRef -> m [HashRef] readHashesFromBlock :: (MonadIO m, HasStorage m) => HashRef -> m [HashRef]
readHashesFromBlock (HashRef h) = do readHashesFromBlock (HashRef h) = do