Skip to content
Snippets Groups Projects
Commit 5961343e authored by kgardas's avatar kgardas Committed by Austin Seipp
Browse files

fix getFileStatus: interrupted (Interrupted system call) build failure on Solaris


Patch provided by Christian Maeder <Christian.Maeder@dfki.de>

Signed-off-by: default avatarKarel Gardas <karel.gardas@centrum.cz>
Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>

(cherry picked from commit f4d0e106)
parent a712abb2
No related branches found
No related tags found
No related merge requests found
......@@ -96,6 +96,7 @@ import Foreign.C
import System.Posix.Types
import System.Posix.Files.Common
import System.Posix.Error
import System.Posix.Internals
import Data.Time.Clock.POSIX
......@@ -165,7 +166,7 @@ getFileStatus path = do
fp <- mallocForeignPtrBytes (#const sizeof(struct stat))
withForeignPtr fp $ \p ->
withFilePath path $ \s ->
throwErrnoPathIfMinus1_ "getFileStatus" path (c_stat s p)
throwErrnoPathIfMinus1Retry_ "getFileStatus" path (c_stat s p)
return (FileStatus fp)
-- | Acts as 'getFileStatus' except when the 'FilePath' refers to a symbolic
......
......@@ -172,7 +172,7 @@ getFileStatus path = do
fp <- mallocForeignPtrBytes (#const sizeof(struct stat))
withForeignPtr fp $ \p ->
withFilePath path $ \s ->
throwErrnoPathIfMinus1_ "getFileStatus" path (c_stat s p)
throwErrnoPathIfMinus1Retry_ "getFileStatus" path (c_stat s p)
return (FileStatus fp)
-- | Acts as 'getFileStatus' except when the 'RawFilePath' refers to a symbolic
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment