cabal-install-3.10.2.1: The command-line interface for Cabal and Hackage.

Safe Haskell | None
Language | Haskell2010

Distribution.Client.Store

Contents

- The store layout
- Reading store entries
- Creating store entries
- Concurrency strategy

Description

Management for the installed package store.

Synopsis

- data StoreDirLayout = StoreDirLayout {
  - storeDirectory :: CompilerId -> FilePath
  - storePackageDirectory :: CompilerId -> UnitId -> FilePath
  - storePackageDBPath :: CompilerId -> FilePath
  - storePackageDB :: CompilerId -> PackageDB
  - storePackageDBStack :: CompilerId -> PackageDBStack
  - storeIncomingDirectory :: CompilerId -> FilePath
  - storeIncomingLock :: CompilerId -> UnitId -> FilePath
  }
- defaultStoreDirLayout :: FilePath -> StoreDirLayout
- getStoreEntries :: StoreDirLayout -> CompilerId -> Rebuild (Set UnitId)
- doesStoreEntryExist :: StoreDirLayout -> CompilerId -> UnitId -> IO Bool
- newStoreEntry :: Verbosity -> StoreDirLayout -> CompilerId -> UnitId -> (FilePath -> IO (FilePath, [FilePath])) -> IO () -> IO NewStoreEntryOutcome
- data NewStoreEntryOutcome
  - = UseNewStoreEntry
  - | UseExistingStoreEntry

# The store layout

data StoreDirLayout #

The layout of a cabal nix-style store.

Constructors

StoreDirLayout |

Fields

- storeDirectory :: CompilerId -> FilePath
- storePackageDirectory :: CompilerId -> UnitId -> FilePath
- storePackageDBPath :: CompilerId -> FilePath
- storePackageDB :: CompilerId -> PackageDB
- storePackageDBStack :: CompilerId -> PackageDBStack
- storeIncomingDirectory :: CompilerId -> FilePath
- storeIncomingLock :: CompilerId -> UnitId -> FilePath

defaultStoreDirLayout :: FilePath -> StoreDirLayout #

# Reading store entries

getStoreEntries :: StoreDirLayout -> CompilerId -> Rebuild (Set UnitId) #

Return the `UnitId`s of all packages/components already installed in the store.

doesStoreEntryExist :: StoreDirLayout -> CompilerId -> UnitId -> IO Bool #

Check if a particular `UnitId` exists in the store.

# Creating store entries

newStoreEntry #

Arguments

:: Verbosity |
-> StoreDirLayout |
-> CompilerId |
-> UnitId |
-> (FilePath -> IO (FilePath, [FilePath])) | Action to place files.
-> IO () | Register action, if necessary.
-> IO NewStoreEntryOutcome |

Place a new entry into the store. See the concurrency strategy description for full details.

In particular, it takes two actions: one to place files into a temporary location, and a second to perform any necessary registration. The first action is executed without any locks held (the temp dir is unique). The second action holds a lock that guarantees that only one cabal process is able to install this store entry. This means it is safe to register into the compiler package DB or do other similar actions.

Note that if you need to use the registration information later then you must check the `NewStoreEntryOutcome` and if it`s'UseExistingStoreEntry` then you must read the existing registration information (unless your registration information is constructed fully deterministically).

data NewStoreEntryOutcome #

The outcome of `newStoreEntry`: either the store entry was newly created or it existed already. The latter case happens if there was a race between two builds of the same store entry.

Constructors

UseNewStoreEntry |
UseExistingStoreEntry |

#### Instances

Instances details

Show NewStoreEntryOutcome # |
Instance details Defined in Distribution.Client.Store Methods showsPrec :: Int -> NewStoreEntryOutcome -> ShowS # show :: NewStoreEntryOutcome -> String # showList :: [NewStoreEntryOutcome] -> ShowS #
Eq NewStoreEntryOutcome # |
Instance details Defined in Distribution.Client.Store Methods (==) :: NewStoreEntryOutcome -> NewStoreEntryOutcome -> Bool # (/=) :: NewStoreEntryOutcome -> NewStoreEntryOutcome -> Bool #

# Concurrency strategy

We access and update the store concurrently. Our strategy to do that safely is as follows.

The store entries once created are immutable. This alone simplifies matters considerably.

Additionally, the way `UnitId` hashes are constructed means that if a store entry exists already then we can assume its content is ok to reuse, rather than having to re-recreate. This is the nix-style input hashing concept.

A consequence of this is that with a little care it is safe to race updates against each other. Consider two independent concurrent builds that both want to build a particular `UnitId`, where that entry does not yet exist in the store. It is safe for both to build and try to install this entry into the store provided that:

- only one succeeds
- the looser discovers that they lost, they abandon their own build and re-use the store entry installed by the winner.

Note that because builds are not reproducible in general (nor even necessarily ABI compatible) then it is essential that the loser abandon their build and use the one installed by the winner, so that subsequent packages are built against the exact package from the store rather than some morally equivalent package that may not be ABI compatible.

Our overriding goal is that store reads be simple, cheap and not require locking. We will derive our write-side protocol to make this possible.

The read-side protocol is simply:

- check for the existence of a directory entry named after the `UnitId` in question. That is, if the dir entry `$root/foo-1.0-fe56a...` exists then the store entry can be assumed to be complete and immutable.

Given our read-side protocol, the final step on the write side must be to atomically rename a fully-formed store entry directory into its final location. While this will indeed be the final step, the preparatory steps are more complicated. The tricky aspect is that the store also contains a number of shared package databases (one per compiler version). Our read strategy means that by the time we install the store dir entry the package db must already have been updated. We cannot do the package db update as part of atomically renaming the store entry directory however. Furthermore it is not safe to allow either package db update because the db entry contains the ABI hash and this is not guaranteed to be deterministic. So we must register the new package prior to the atomic dir rename. Since this combination of steps are not atomic then we need locking.

The write-side protocol is:

- Create a unique temp dir and write all store entry files into it.
- Take a lock named after the `UnitId` in question.
- Once holding the lock, check again for the existence of the final store entry directory. If the entry exists then the process lost the race and it must abandon, unlock and re-use the existing store entry. If the entry does not exist then the process won the race and it can proceed.
- Register the package into the package db. Note that the files are not in their final location at this stage so registration file checks may need to be disabled.
- Atomically rename the temp dir to the final store entry location.
- Release the previously-acquired lock.

Obviously this means it is possible to fail after registering but before installing the store entry, leaving a dangling package db entry. This is not much of a problem because this entry does not determine package existence for cabal. It does mean however that the package db update should be insert or replace, i.e. not failing if the db entry already exists.