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

wip

This commit is contained in:
Dmitry Zuikov 2024-06-03 07:20:48 +03:00
parent 0834a9a142
commit b802debd97
3 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fixme-new/lib/Fixme/Run.hs
View File

@ -549,7 +549,6 @@ run what = do
ListVal [SymbolVal "builtin:update-indexes"] -> do ListVal [SymbolVal "builtin:update-indexes"] -> do
updateIndexes updateIndexes
ListVal [SymbolVal "builtin:select-fixme-hash", FixmeHashLike x] -> do ListVal [SymbolVal "builtin:select-fixme-hash", FixmeHashLike x] -> do
w <- selectFixmeHash x w <- selectFixmeHash x
liftIO $ print $ pretty w liftIO $ print $ pretty w

1
fixme-new/lib/Fixme/State.hs
View File

@ -529,7 +529,6 @@ deleteFixme hash = withState do
on conflict(id,ts) do nothing on conflict(id,ts) do nothing
|] (Only hash) |] (Only hash)
updateFixme :: (FixmePerks m,MonadReader FixmeEnv m) updateFixme :: (FixmePerks m,MonadReader FixmeEnv m)
=> Maybe FixmeTimestamp => Maybe FixmeTimestamp
-> Text -> Text

2
hbs2-storage-simple/lib/HBS2/Storage/Compact.hs
View File

@ -338,8 +338,6 @@ compactStorageCommit sto = liftIO do
offLast <- hTell ha <&> fromIntegral offLast <- hTell ha <&> fromIntegral
sz <- hFileSize ha
remapFile remapFile
atomically do atomically do