redo conctructor hiding

Author: sorki

hnix-store-core/src/System/Nix/StorePath.hs

@@ -11,9 +11,11 @@ module System.Nix.StorePath
   , HasStoreDir(..)
   , getStoreDir
   , StorePath(..)
-  , StorePathName(..)
-  , StorePathHashPart(..)
+  , StorePathName
+  , unStorePathName
+  , StorePathHashPart
   , mkStorePathHashPart
+  , unStorePathHashPart
   , -- * Manipulating 'StorePathName'
     makeStorePathName
   , validStorePathName

hnix-store-tests/src/System/Nix/Arbitrary/StorePath.hs

@@ -32,7 +32,10 @@ instance Arbitrary StorePath where
       arbitrary
 
 instance Arbitrary StorePathName where
-  arbitrary = StorePathName . Data.Text.pack <$> ((:) <$> s1 <*> listOf sn)
+  arbitrary =
+      either undefined id
+    . System.Nix.StorePath.makeStorePathName
+    . Data.Text.pack <$> ((:) <$> s1 <*> listOf sn)
    where
     alphanum = ['a' .. 'z'] <> ['A' .. 'Z'] <> ['0' .. '9']
     s1       = elements $ alphanum <> "+-_?="