Windows

Author: f-f

src/Spago/Bower.hs

@@ -60,7 +60,9 @@ generateBowerJson = do
     die [ path <> " is being ignored by git - change this before continuing" ]
 
   logInfo "Generated a valid Bower config using the package set"
-  pure bowerJson
+  pure $ case OS.buildOS of
+    OS.Windows -> Text.replace "\n" "\r\n" bowerJson
+    _ -> bowerJson
 
 
 runBowerInstall :: (HasLogFunc env, HasBower env) => RIO env ()