Skip to content

Commit e750f60

Browse files
committed
Permit validPaths to use effects
According to @shlevy, whether or not a rooted path is a valid path is not an intrinsic property of the rooted path and requires a side effect to determine, so this change modifies the `StoreEffects` record to reflect that.
1 parent 972e2c7 commit e750f60

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -93,7 +93,7 @@ data StoreEffects rootedPath validPath m =
9393
, -- | Project out the underlying 'rootedPath' from a 'validPath'
9494
fromValidPath :: !(validPath -> rootedPath)
9595
, -- | Which of the given paths are valid?
96-
validPaths :: !(HashSet rootedPath -> HashSet validPath)
96+
validPaths :: !(HashSet rootedPath -> m (HashSet validPath))
9797
, -- | Get the paths that refer to a given path.
9898
referrers :: !(validPath -> m (HashSet Path))
9999
, -- | Get a root to the 'Path'.

0 commit comments

Comments
 (0)