TO REBASE 2

Co-authored-by: Viktor Dukhovni <[email protected]>

Author: luispedro

System/Posix/Files.hsc

@@ -109,7 +109,7 @@ import Data.Time.Clock.POSIX (POSIXTime)
 -- | For operations that require two paths (e.g., renaming a file)
 throwErrnoTwoPathsIfMinus1_ :: String -> FilePath -> FilePath -> IO ()
 throwErrnoTwoPathsIfMinus1_ loc path1 path2 =
-  throwErrnoIfMinus1_ (loc ++ " '" ++ path1 ++ "' to '" ++ path2 ++ "'")
+  throwErrnoIfMinus1_ (loc <> " '" <> path1 <> "' to '" <> path2 <> "'")
 
 -- -----------------------------------------------------------------------------
 -- chmod()