9170c52 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on golang help sign in

Fix another "path separators on windows" issue

9170c52Harry Garrood11 years ago

src/Language/PureScript/Publish.hs+2−1

@@ -43,6 +43,7 @@ import Control.Monad.Writer

43import System.Directory (doesFileExist)

44import System.Process (readProcess)

45import System.Exit (exitFailure)

46+import System.FilePath (pathSeparator)

46import qualified System.FilePath.Glob as Glob

47import qualified System.FilePath.Glob as Glob

48import Web.Bower.PackageMeta (PackageMeta(..), BowerError(..), PackageName,

49import Web.Bower.PackageMeta (PackageMeta(..), BowerError(..), PackageName,

@@ -340,7 +341,7 @@ withPackageName fp = (,fp) <$> getPackageName fp

340

341

341getPackageName :: FilePath -> Maybe PackageName

342getPackageName :: FilePath -> Maybe PackageName

342getPackageName fp = do

343getPackageName fp = do

343− let xs = splitOn "/" fp

344+ let xs = splitOn [pathSeparator] fp

344 ys <- stripPrefix ["bower_components"] xs

345 ys <- stripPrefix ["bower_components"] xs

345 y <- headMay ys

346 y <- headMay ys

346 case Bower.mkPackageName y of

347 case Bower.mkPackageName y of