Generate GIT-REPO#version versions in bower.json for packages that are not found in Bower.

package.yaml

@@ -44,6 +44,7 @@ library:
   dependencies:
   - base >= 4.7 && < 5
   - text < 1.3
+  - Cabal
   - turtle
   - filepath
   - file-embed

src/Spago/Bower.hs

@@ -14,6 +14,8 @@ import           Data.String                (IsString)
 import qualified Data.Text                  as Text
 import           Data.Text.Lazy             (fromStrict)
 import           Data.Text.Lazy.Encoding    (encodeUtf8)
+import qualified Distribution.System        as System
+import           Distribution.System        (OS (..))
 import qualified Turtle
 import           Web.Bower.PackageMeta      (PackageMeta (..))
 import qualified Web.Bower.PackageMeta      as Bower
@@ -31,6 +33,12 @@ bowerPath :: IsString t => t
 bowerPath = "bower.json"
 
 
+bowerCmd :: Text
+bowerCmd = case System.buildOS of
+  Windows -> "bower." -- workaround windows issue: https://github.com/haskell/process/issues/140
+  _ -> "bower"
+
+
 writeBowerJson :: Spago m => DryRun -> m ()
 writeBowerJson dryRun = do
   config@Config{..} <- Config.ensureConfig
@@ -95,7 +103,7 @@ mkBowerVersion :: Spago m => Bower.PackageName -> Text -> Text -> m Bower.Versio
 mkBowerVersion packageName version repo = do
 
   let args = ["info", "--json", Bower.runPackageName packageName <> "#" <> version]
-  (code, stdout, stderr) <- Turtle.procStrictWithErr "bower" args empty
+  (code, stdout, stderr) <- Turtle.procStrictWithErr bowerCmd args empty
 
   when (code /= ExitSuccess) $ do
     die $ "Failed to run: `bower " <> Text.intercalate " " args <> "`\n" <> stderr