diff --git a/src/Graphing/Hydrate.hs b/src/Graphing/Hydrate.hs index 34f4ce4af..f34ed4be9 100644 --- a/src/Graphing/Hydrate.hs +++ b/src/Graphing/Hydrate.hs @@ -13,8 +13,9 @@ import Data.Set qualified as Set import Graphing (Graphing) import Graphing qualified --- | Given some 'Graphing', return a 'Graphing' where all successors --- of each node are +-- | Given some 'Graphing a' with an instance of @Hydrateable a b@, update the +-- nodes such that all items (which are type @b@) of a node are copied down to +-- all of its successor nodes. hydrateItems :: forall a b. Hydrateable a b => Graphing a -> Graphing a hydrateItems gr = gr' where diff --git a/src/Strategy/Node/YarnV1/YarnLock.hs b/src/Strategy/Node/YarnV1/YarnLock.hs index 3ab44bac5..6d93b47fe 100644 --- a/src/Strategy/Node/YarnV1/YarnLock.hs +++ b/src/Strategy/Node/YarnV1/YarnLock.hs @@ -37,9 +37,9 @@ import Effect.Logger ( ) import Effect.ReadFS (ReadFS, ReadFSErr (FileParseError), readContentsText) import Graphing (Graphing) +import Graphing.Hydrate (hydrateItems) import Path (Abs, File, Path) import Strategy.Node.Types (FlatDeps (..), NodePackage (..)) -import Graphing.Hydrate (hydrateItems) import Types (DependencyResults (DependencyResults), GraphBreadth (Complete)) import Yarn.Lock qualified as YL import Yarn.Lock.Types qualified as YL diff --git a/src/Strategy/Node/YarnV2/YarnLock.hs b/src/Strategy/Node/YarnV2/YarnLock.hs index 91c130b87..d7a9acfbb 100644 --- a/src/Strategy/Node/YarnV2/YarnLock.hs +++ b/src/Strategy/Node/YarnV2/YarnLock.hs @@ -23,9 +23,9 @@ import DepTypes import Effect.ReadFS import Graphing (Graphing) import Graphing qualified +import Graphing.Hydrate (hydrateItems) import Path import Strategy.Node.Types (FlatDeps (..), NodePackage (..)) -import Graphing.Hydrate (hydrateItems) import Strategy.Node.YarnV2.Lockfile import Strategy.Node.YarnV2.Resolvers import Types (DependencyResults (..), GraphBreadth (Complete))