Reorder references in makeTextPath

This commit is contained in:
Guillaume Maudoux 2021-03-24 02:26:50 +01:00
parent 5978255e2e
commit 5fddf3c66b

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