Merge pull request #145 from layus/fix-makeTextPath-order

Reorder references in makeTextPath
This commit is contained in:
Richard Marko 2021-03-24 09:12:15 +01:00 committed by GitHub
commit f2ee216e9c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -8,6 +8,7 @@ module System.Nix.ReadonlyStore where
import Data.ByteString ( ByteString )
import qualified Data.ByteString as BS
import Data.List ( sort )
import qualified Data.Text as T
import qualified Data.HashSet as HS
import Data.Text.Encoding
@ -41,7 +42,7 @@ makeTextPath
makeTextPath fp nm h refs = makeStorePath fp ty h nm
where
ty =
BS.intercalate ":" ("text" : fmap storePathToRawFilePath (HS.toList refs))
BS.intercalate ":" ("text" : sort (fmap storePathToRawFilePath (HS.toList refs)))
makeFixedOutputPath
:: forall hashAlgo