From b802debd976d1215d309d091b8a1ef773525fe1f Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 3 Jun 2024 07:20:48 +0300
Subject: [PATCH] wip

---
 fixme-new/lib/Fixme/Run.hs                      | 1 -
 fixme-new/lib/Fixme/State.hs                    | 1 -
 hbs2-storage-simple/lib/HBS2/Storage/Compact.hs | 2 --
 3 files changed, 4 deletions(-)

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