core: don't (re)export StorePathName constructor

sorki · sorki · commit b1e590606e82 · 2023-11-15T08:29:49.000+01:00
diff --git a/hnix-store-core/src/System/Nix/ReadonlyStore.hs b/hnix-store-core/src/System/Nix/ReadonlyStore.hs
@@ -38,7 +38,7 @@ makeStorePath storeDir ty h nm = StorePath (coerce storeHash) nm
         [ algoName @h
         , encodeDigestWith Base16 h
         , toText . Bytes.Char8.unpack $ unStoreDir storeDir
-        , coerce nm
+        , unStorePathName nm
         ]
 
 makeTextPath
diff --git a/hnix-store-core/src/System/Nix/StorePath.hs b/hnix-store-core/src/System/Nix/StorePath.hs
@@ -5,14 +5,15 @@ module System.Nix.StorePath
   ( -- * Basic store path types
     StoreDir(..)
   , StorePath(..)
-  , StorePathName(..)
+  , StorePathName
   , StorePathSet
   , mkStorePathHashPart
   , StorePathHashPart(..)
   , ContentAddressableAddress(..)
   , NarHashMode(..)
   , -- * Manipulating 'StorePathName'
     makeStorePathName
+  , unStorePathName
   , validStorePathName
   , -- * Rendering out 'StorePath's
     storePathToFilePath

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ makeStorePath storeDir ty h nm = StorePath (coerce storeHash) nm`
`38`	`38`	`[ algoName @h`
`39`	`39`	`, encodeDigestWith Base16 h`
`40`	`40`	`, toText . Bytes.Char8.unpack $ unStoreDir storeDir`
`41`		`- , coerce nm`
	`41`	`+ , unStorePathName nm`
`42`	`42`	`]`
`43`	`43`
`44`	`44`	`makeTextPath`