rio's withBinaryFileAtomic doesn't work on wsl1, restore the old code

:( uhhh

Author: dten

src/Stack/Prelude.hs

@@ -24,6 +24,7 @@ module Stack.Prelude
   , module X
   ) where
 
+import           Conduit
 import           RIO                  as X
 import           RIO.File             as X hiding (writeBinaryFileAtomic)
 import           Data.Conduit         as X (ConduitM, runConduit, (.|))
@@ -44,6 +45,8 @@ import           RIO.Process (HasProcessContext (..), ProcessContext, setStdin,
 
 import qualified Data.Text.IO as T
 import qualified RIO.Text as T
+import           System.Permissions (osIsWindows)
+
 
 -- | Path version
 withSystemTempDir :: MonadUnliftIO m => String -> (Path Abs Dir -> m a) -> m a
@@ -211,7 +214,21 @@ defaultFirstFalse :: (a -> FirstFalse) -> Bool
 defaultFirstFalse _ = False
 
 -- | Write a @Builder@ to a file and atomically rename.
+--
+-- In the future: replace with a function in rio
 writeBinaryFileAtomic :: MonadIO m => Path absrel File -> Builder -> m ()
-writeBinaryFileAtomic fp builder =
-    liftIO $
-    withBinaryFileAtomic (toFilePath fp) WriteMode (`hPutBuilder` builder)
+writeBinaryFileAtomic fp builder
+  -- Atomic file writing is not supported on Windows yet, unfortunately.
+  -- withSinkFileCautious needs to be implemented properly for Windows to make
+  -- this work.
+  | osIsWindows =
+      liftIO $
+      withBinaryFile (toFilePath fp) WriteMode $ \h ->
+      hPutBuilder h builder
+  | otherwise =
+      liftIO $
+      withSinkFileCautious (toFilePath fp) $ \sink ->
+      runConduit $
+      yield builder .|
+      unsafeBuilderToByteString .|
+      sink