From 08d1c13628c1f927be58f8454058f458cca22817 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 20 Mar 2011 18:06:06 -0400 Subject: fix typo --- Touch.hsc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Touch.hsc b/Touch.hsc index 8a3e31b57..fd3500f86 100644 --- a/Touch.hsc +++ b/Touch.hsc @@ -81,7 +81,7 @@ touchBoth file atime mtime follow = - TODO: test if lutimes is available. May have to do it in configure. - TODO: TimeSpec uses a CTime, while tv_sec is a CLong. It is implementation - dependent whether these are the same; need to find a cast that works. - - (The cast below fails.. without the cast it works on linux i386, but + - (Without the cast it works on linux i386, but - maybe not elsewhere.) -} @@ -92,7 +92,7 @@ instance Storable TimeSpec where sec <- #{peek struct timeval, tv_sec} ptr return $ TimeSpec sec poke ptr (TimeSpec sec) = do - #{poke struct timeval, tv_sec} ptr (sec :: CLong) + #{poke struct timeval, tv_sec} ptr sec #{poke struct timeval, tv_usec} ptr (0 :: CLong) foreign import ccall "utimes" @@ -114,7 +114,7 @@ touchBoth file atime mtime follow = else c_utimes #else -warning "utimensat and lutimes not available; building without symlink timestamp preservation support" +#warning "utimensat and lutimes not available; building without symlink timestamp preservation support" touchBoth _ _ _ _ = return () #endif #endif -- cgit v1.2.3