haskell-nix/hnix-store
1
1
Fork 0
mirror of https://github.com/haskell-nix/hnix-store.git synced 2024-12-02 21:38:14 +03:00
Code Issues Projects Releases Wiki Activity

makeStorePath: Generalize toall named hash algorithms.

Browse Source
This commit is contained in:
Shea Levy 2019-03-24 16:50:02 -04:00
parent f2beabb10f
commit 61a536504d
No known key found for this signature in database
GPG Key ID: 5C0BD6957D86FE27
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hnix-store-core/src/System/Nix/ReadonlyStore.hs
View File

@ -11,12 +11,12 @@ import Data.Text.Encoding
import System.Nix.Hash
import System.Nix.StorePath
makeStorePath :: forall storeDir . (KnownStoreDir storeDir) => ByteString -> Digest 'SHA256 -> StorePathName -> StorePath storeDir
makeStorePath :: forall storeDir hashAlgo . (KnownStoreDir storeDir, NamedAlgo hashAlgo) => ByteString -> Digest hashAlgo -> StorePathName -> StorePath storeDir
makeStorePath ty h nm = StorePath storeHash nm
where
s = BS.intercalate ":"
[ ty
, encodeUtf8 $ algoName @'SHA256
, encodeUtf8 $ algoName @hashAlgo
, encodeUtf8 $ encodeBase16 h
, storeDirVal @storeDir
, encodeUtf8 $ unStorePathName nm