[commit: packages/directory] master: Remove unnecessary polymorphism on c_AT_FDCWD (95ee8ec)
git at git.haskell.org
git at git.haskell.org
Fri Dec 18 09:53:19 UTC 2015
Repository : ssh://git@git.haskell.org/directory
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/95ee8ecea7ca852d8707b47de5201bf154c1eae8/directory
>---------------------------------------------------------------
commit 95ee8ecea7ca852d8707b47de5201bf154c1eae8
Author: Phil Ruffwind <rf at rufflewind.com>
Date: Sun Nov 22 09:20:34 2015 -0500
Remove unnecessary polymorphism on c_AT_FDCWD
Should fix the new GHC warning about it not being INLINABLE.
>---------------------------------------------------------------
95ee8ecea7ca852d8707b47de5201bf154c1eae8
System/Directory/Internal/C_utimensat.hsc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/System/Directory/Internal/C_utimensat.hsc b/System/Directory/Internal/C_utimensat.hsc
index d1775fb..cc3295b 100644
--- a/System/Directory/Internal/C_utimensat.hsc
+++ b/System/Directory/Internal/C_utimensat.hsc
@@ -30,7 +30,7 @@ instance Storable CTimeSpec where
nsec <- #{peek struct timespec, tv_nsec} p
return (CTimeSpec sec nsec)
-c_AT_FDCWD :: Integral a => a
+c_AT_FDCWD :: CInt
c_AT_FDCWD = (#const AT_FDCWD)
utimeOmit :: CTimeSpec
More information about the ghc-commits
mailing list