haskell-nix/hnix-store
1
1
Fork 0
mirror of https://github.com/haskell-nix/hnix-store.git synced 2024-11-30 22:42:02 +03:00
Code Issues Projects Releases Wiki Activity

core: StorePath add HasStoreDir, getStoreDir

Browse Source
This commit is contained in:
Richard Marko 2023-11-18 17:45:15 +01:00
parent 6160cfd523
commit 747225cb1a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hnix-store-core/src/System/Nix/StorePath.hs
View File

@ -9,6 +9,8 @@ Description : Representation of Nix store paths.
module System.Nix.StorePath
( -- * Basic store path types
StoreDir(..)
, HasStoreDir(..)
, getStoreDir
, StorePath(..)
, StorePathName(..)
, StorePathHashPart(..)
@ -33,6 +35,7 @@ module System.Nix.StorePath
#if !MIN_VERSION_base(4,18,0)
import Control.Applicative (liftA2)
#endif
import Control.Monad.Reader.Class (MonadReader, asks)
import Crypto.Hash (HashAlgorithm, SHA256)
import Data.Attoparsec.Text.Lazy (Parser, (<?>))
import Data.ByteString (ByteString)
@ -189,6 +192,13 @@ instance Arbitrary StoreDir where
instance Default StoreDir where
def = StoreDir "/nix/store"
class HasStoreDir r where
hasStoreDir :: r -> StoreDir
-- | Ask for a @StoreDir@
getStoreDir :: (HasStoreDir r, MonadReader r m) => m StoreDir
getStoreDir = asks hasStoreDir
-- | Render a 'StorePath' as a 'RawFilePath'.
storePathToRawFilePath :: StoreDir -> StorePath -> RawFilePath
storePathToRawFilePath storeDir StorePath{..} =