@@ -36,14 +36,16 @@ 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
48+import qualified System.Info
4749
4850import Web.Bower.PackageMeta (PackageMeta(..), BowerError(..), PackageName,
4951 runPackageName, parsePackageName, Repository(..))
@@ -238,7 +240,8 @@ data DependencyStatus
238240-- appropriate to link to, and we should omit links.
239241getResolvedDependencies :: [PackageName] -> PrepareM [(PackageName, Version)]
240242getResolvedDependencies declaredDeps = do
241− depsBS <- fromString <$> readProcess' "bower" ["list", "--json", "--offline"] ""
243+ bower <- findBowerExecutable
244+ depsBS <- fromString <$> readProcess' bower ["list", "--json", "--offline"] ""
242245
243246 -- Check for undeclared dependencies
244247 toplevels <- catchJSON (parse asToplevelDependencies depsBS)
@@ -250,6 +253,15 @@ getResolvedDependencies declaredDeps = do
250253 where
251254 catchJSON = flip catchLeft (internalError . JSONError FromBowerList)
252255
256+findBowerExecutable :: PrepareM String
257+findBowerExecutable = do
258+ mname <- liftIO . runMaybeT . msum . map (MaybeT . findExecutable) $ names
259+ maybe (userError (BowerExecutableNotFound names)) return mname
260+ where
261+ names = case System.Info.os of
262+ "mingw32" -> ["bower", "bower.cmd"]
263+ _ -> ["bower"]
264+
253265-- | Extracts all dependencies and their versions from
254266-- `bower list --json --offline`
255267asResolvedDependencies :: Parse BowerError [(PackageName, DependencyStatus)]