[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