diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs index 335ce4c1..2df8b547 100644 --- a/fixme-new/lib/Fixme/Run.hs +++ b/fixme-new/lib/Fixme/Run.hs @@ -549,7 +549,6 @@ run what = do ListVal [SymbolVal "builtin:update-indexes"] -> do updateIndexes - ListVal [SymbolVal "builtin:select-fixme-hash", FixmeHashLike x] -> do w <- selectFixmeHash x liftIO $ print $ pretty w diff --git a/fixme-new/lib/Fixme/State.hs b/fixme-new/lib/Fixme/State.hs index 5f2a8055..cc31fa2d 100644 --- a/fixme-new/lib/Fixme/State.hs +++ b/fixme-new/lib/Fixme/State.hs @@ -529,7 +529,6 @@ deleteFixme hash = withState do on conflict(id,ts) do nothing |] (Only hash) - updateFixme :: (FixmePerks m,MonadReader FixmeEnv m) => Maybe FixmeTimestamp -> Text diff --git a/hbs2-storage-simple/lib/HBS2/Storage/Compact.hs b/hbs2-storage-simple/lib/HBS2/Storage/Compact.hs index d8f6a1fd..0406238d 100644 --- a/hbs2-storage-simple/lib/HBS2/Storage/Compact.hs +++ b/hbs2-storage-simple/lib/HBS2/Storage/Compact.hs @@ -338,8 +338,6 @@ compactStorageCommit sto = liftIO do offLast <- hTell ha <&> fromIntegral - sz <- hFileSize ha - remapFile atomically do