ReadonlyStoreEffects: Add rootedPath operation.

This commit is contained in:
Shea Levy 2018-04-27 05:37:49 -07:00
parent f21f036d7e
commit ead433277e
No known key found for this signature in database
GPG Key ID: 5C0BD6957D86FE27

View File

@ -81,4 +81,6 @@ data ReadonlyStoreEffects rootedPath validPath m =
validPath :: !(rootedPath -> m (Maybe validPath))
, -- | Get the paths that refer to a given path.
referrers :: !(validPath -> m (HashSet Path))
, -- | Get a root to the 'Path'.
rootedPath :: !(Path -> m rootedPath)
}