@@ -36,11 +36,12 @@ import Control.Applicative
3636import Control.Category ((>>>))
3737import Control.Arrow ((***))
3838import Control.Exception (catch, try)
39+import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)
3940import Control.Monad.Trans.Except
4041import Control.Monad.Error.Class (MonadError(..))
4142import Control.Monad.Writer
4243
43−import System.Directory (doesFileExist)
44+import System.Directory (doesFileExist, findExecutable)
4445import System.Process (readProcess)
4546import System.Exit (exitFailure)
4647import qualified System.FilePath.Glob as Glob
@@ -238,7 +239,8 @@ data DependencyStatus
238239-- appropriate to link to, and we should omit links.
239240getResolvedDependencies :: [PackageName] -> PrepareM [(PackageName, Version)]
240241getResolvedDependencies declaredDeps = do
241− depsBS <- fromString <$> readProcess' "bower" ["list", "--json", "--offline"] ""
242+ bower <- findBowerExecutable
243+ depsBS <- fromString <$> readProcess' bower ["list", "--json", "--offline"] ""
242244
243245 -- Check for undeclared dependencies
244246 toplevels <- catchJSON (parse asToplevelDependencies depsBS)
@@ -250,6 +252,13 @@ getResolvedDependencies declaredDeps = do
250252 where
251253 catchJSON = flip catchLeft (internalError . JSONError FromBowerList)
252254
255+findBowerExecutable :: PrepareM String
256+findBowerExecutable = do
257+ mname <- liftIO . runMaybeT . msum . map (MaybeT . findExecutable) $ names
258+ maybe (userError BowerExecutableNotFound) return mname
259+ where
260+ names = ["bower", "bower.cmd"]
261+
253262-- | Extracts all dependencies and their versions from
254263-- `bower list --json --offline`
255264asResolvedDependencies :: Parse BowerError [(PackageName, DependencyStatus)]