sim: Fix size tracking for balanced preferred content

This commit is contained in:
Joey Hess 2024-09-23 12:28:18 -04:00
parent a6b8082119
commit 6cf9a101b8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 98 additions and 32 deletions

View file

@ -29,8 +29,8 @@ newtype MaxSize = MaxSize { fromMaxSize :: Integer }
deriving (Show, Read, Eq, Ord)
-- An offset to the size of a repo.
newtype SizeOffset = SizeOffset { fromSizeChange :: Integer }
deriving (Show, Eq, Ord, Num)
newtype SizeOffset = SizeOffset { fromSizeOffset :: Integer }
deriving (Show, Read, Eq, Ord, Num)
-- Used when an action is in progress that will change the current size of
-- a repository.