wip

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

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

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