Reorder references in makeTextPath

haskell-nix · Mar 24, 2021 · 5fddf3c · 5fddf3c
1 parent 5978255
commit 5fddf3c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/hnix-store-core/src/System/Nix/ReadonlyStore.hs b/hnix-store-core/src/System/Nix/ReadonlyStore.hs
@@ -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