Integrate Bun tactic into Node.js strategy

Wire up Bun lockfile support in the Node.js strategy:
- Add Bun constructor to NodeProject ADT
- Add bun.lock detection in identifyProjectType
- Add Bun dispatch in getDeps
- Add BunProjectType to discovery filter

Detection order: Yarn -> NPM -> Pnpm -> Bun -> fallback NPM

Ultraworked with [Sisyphus](https://github.com/code-yeongyu/oh-my-opencode)

Co-authored-by: Sisyphus <clio-agent@sisyphuslabs.ai>

Author: saramaebee

src/Strategy/Node.hs

@@ -74,6 +74,7 @@ import Path (
   (</>),
  )
 import Strategy.Node.Errors (CyclicPackageJson (CyclicPackageJson), MissingNodeLockFile (..), fossaNodeDocUrl, npmLockFileDocUrl, yarnLockfileDocUrl, yarnV2LockfileDocUrl)
+import Strategy.Node.Bun.BunLock qualified as BunLock
 import Strategy.Node.Npm.PackageLock qualified as PackageLock
 import Strategy.Node.Npm.PackageLockV3 qualified as PackageLockV3
 import Strategy.Node.PackageJson (
@@ -96,16 +97,16 @@ import Strategy.Node.Pnpm.Workspace (PnpmWorkspace (workspaceSpecs))
 import Strategy.Node.YarnV1.YarnLock qualified as V1
 import Strategy.Node.YarnV2.YarnLock qualified as V2
 import Types (
-  DependencyResults (DependencyResults),
-  DiscoveredProject (..),
-  DiscoveredProjectType (NpmProjectType, PnpmProjectType, YarnProjectType),
-  FoundTargets (ProjectWithoutTargets),
-  GraphBreadth (Complete, Partial),
-  License (License),
-  LicenseResult (LicenseResult, licensesFound),
-  LicenseType (LicenseURL, UnknownType),
-  licenseFile,
- )
+   DependencyResults (DependencyResults),
+   DiscoveredProject (..),
+   DiscoveredProjectType (BunProjectType, NpmProjectType, PnpmProjectType, YarnProjectType),
+   FoundTargets (ProjectWithoutTargets),
+   GraphBreadth (Complete, Partial),
+   License (License),
+   LicenseResult (LicenseResult, licensesFound),
+   LicenseType (LicenseURL, UnknownType),
+   licenseFile,
+  )
 
 skipJsFolders :: WalkStep
 skipJsFolders = WalkSkipSome ["node_modules", "bower_components", ".yarn"]
@@ -118,7 +119,7 @@ discover ::
   ) =>
   Path Abs Dir ->
   m [DiscoveredProject NodeProject]
-discover dir = withMultiToolFilter [YarnProjectType, NpmProjectType, PnpmProjectType] $
+discover dir = withMultiToolFilter [YarnProjectType, NpmProjectType, PnpmProjectType, BunProjectType] $
   context "NodeJS" $ do
     manifestList <- context "Finding nodejs/pnpm projects" $ collectManifests dir
     manifestMap <- context "Reading manifest files" $ (Map.fromList . catMaybes) <$> traverse loadPackage manifestList
@@ -147,6 +148,7 @@ mkProject project = do
         NPMLock _ g -> (g, NpmProjectType)
         NPM g -> (g, NpmProjectType)
         Pnpm _ g -> (g, PnpmProjectType)
+        Bun _ g -> (g, BunProjectType)
   Manifest rootManifest <- fromEitherShow $ findWorkspaceRootManifest graph
   pure $
     DiscoveredProject
@@ -172,12 +174,18 @@ getDeps ::
 getDeps (Yarn yarnLockFile graph) = analyzeYarn yarnLockFile graph
 getDeps (NPMLock packageLockFile graph) = analyzeNpmLock packageLockFile graph
 getDeps (Pnpm pnpmLockFile _) = analyzePnpmLock pnpmLockFile
+getDeps (Bun bunLockFile _) = analyzeBunLock bunLockFile
 getDeps (NPM graph) = analyzeNpm graph
 
 analyzePnpmLock :: (Has Diagnostics sig m, Has ReadFS sig m, Has Logger sig m) => Manifest -> m DependencyResults
 analyzePnpmLock (Manifest pnpmLockFile) = do
-  result <- PnpmLock.analyze pnpmLockFile
-  pure $ DependencyResults result Complete [pnpmLockFile]
+   result <- PnpmLock.analyze pnpmLockFile
+   pure $ DependencyResults result Complete [pnpmLockFile]
+
+analyzeBunLock :: (Has Diagnostics sig m, Has ReadFS sig m) => Manifest -> m DependencyResults
+analyzeBunLock (Manifest bunLockFile) = do
+   result <- BunLock.analyze bunLockFile
+   pure $ DependencyResults result Complete [bunLockFile]
 
 analyzeNpmLock :: (Has Diagnostics sig m, Has ReadFS sig m) => Manifest -> PkgJsonGraph -> m DependencyResults
 analyzeNpmLock (Manifest npmLockFile) graph = do
@@ -364,25 +372,29 @@ identifyProjectType ::
   PkgJsonGraph ->
   m NodeProject
 identifyProjectType graph = do
-  Manifest manifest <- fromEitherShow $ findWorkspaceRootManifest graph
-  let yarnFilePath = parent manifest Path.</> $(mkRelFile "yarn.lock")
-      packageLockPath = parent manifest Path.</> $(mkRelFile "package-lock.json")
-      pnpmLockPath = parent manifest Path.</> $(mkRelFile "pnpm-lock.yaml")
-  yarnExists <- doesFileExist yarnFilePath
-  pkgLockExists <- doesFileExist packageLockPath
-  pnpmLockExists <- doesFileExist pnpmLockPath
-  pure $ case (yarnExists, pkgLockExists, pnpmLockExists) of
-    (True, _, _) -> Yarn (Manifest yarnFilePath) graph
-    (_, True, _) -> NPMLock (Manifest packageLockPath) graph
-    (_, _, True) -> Pnpm (Manifest pnpmLockPath) graph
-    _ -> NPM graph
+   Manifest manifest <- fromEitherShow $ findWorkspaceRootManifest graph
+   let yarnFilePath = parent manifest Path.</> $(mkRelFile "yarn.lock")
+       packageLockPath = parent manifest Path.</> $(mkRelFile "package-lock.json")
+       pnpmLockPath = parent manifest Path.</> $(mkRelFile "pnpm-lock.yaml")
+       bunLockPath = parent manifest Path.</> $(mkRelFile "bun.lock")
+   yarnExists <- doesFileExist yarnFilePath
+   pkgLockExists <- doesFileExist packageLockPath
+   pnpmLockExists <- doesFileExist pnpmLockPath
+   bunLockExists <- doesFileExist bunLockPath
+   pure $ case (yarnExists, pkgLockExists, pnpmLockExists, bunLockExists) of
+     (True, _, _, _) -> Yarn (Manifest yarnFilePath) graph
+     (_, True, _, _) -> NPMLock (Manifest packageLockPath) graph
+     (_, _, True, _) -> Pnpm (Manifest pnpmLockPath) graph
+     (_, _, _, True) -> Bun (Manifest bunLockPath) graph
+     _ -> NPM graph
 
 data NodeProject
-  = Yarn Manifest PkgJsonGraph
-  | NPMLock Manifest PkgJsonGraph
-  | NPM PkgJsonGraph
-  | Pnpm Manifest PkgJsonGraph
-  deriving (Eq, Ord, Show, Generic)
+   = Yarn Manifest PkgJsonGraph
+   | NPMLock Manifest PkgJsonGraph
+   | NPM PkgJsonGraph
+   | Pnpm Manifest PkgJsonGraph
+   | Bun Manifest PkgJsonGraph
+   deriving (Eq, Ord, Show, Generic)
 
 instance LicenseAnalyzeProject NodeProject where
   licenseAnalyzeProject = pure . analyzeLicenses . pkgGraph
@@ -414,6 +426,7 @@ pkgGraph (Yarn _ pjg) = pjg
 pkgGraph (NPMLock _ pjg) = pjg
 pkgGraph (NPM pjg) = pjg
 pkgGraph (Pnpm _ pjg) = pjg
+pkgGraph (Bun _ pjg) = pjg
 
 findWorkspaceRootManifest :: PkgJsonGraph -> Either String Manifest
 findWorkspaceRootManifest PkgJsonGraph{jsonGraph} =