@@ -43,6 +43,7 @@ import Control.Monad.Writer
4343import System.Directory (doesFileExist)
4444import System.Process (readProcess)
4545import System.Exit (exitFailure)
46+import System.FilePath (pathSeparator)
4647import qualified System.FilePath.Glob as Glob
4748
4849import Web.Bower.PackageMeta (PackageMeta(..), BowerError(..), PackageName,
@@ -340,7 +341,7 @@ withPackageName fp = (,fp) <$> getPackageName fp
340341
341342getPackageName :: FilePath -> Maybe PackageName
342343getPackageName fp = do
343− let xs = splitOn "/" fp
344+ let xs = splitOn [pathSeparator] fp
344345 ys <- stripPrefix ["bower_components"] xs
345346 y <- headMay ys
346347 case Bower.mkPackageName y of