mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix typo

Browse source
This commit is contained in:
Joey Hess 2011-03-20 18:06:06 -04:00
parent 464b60ea0d
commit 08d1c13628
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Touch.hsc
View file

@ -81,7 +81,7 @@ touchBoth file atime mtime follow =
- TODO: test if lutimes is available. May have to do it in configure. - 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 - 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. - 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.) - maybe not elsewhere.)
-} -}
@ -92,7 +92,7 @@ instance Storable TimeSpec where
sec <- #{peek struct timeval, tv_sec} ptr sec <- #{peek struct timeval, tv_sec} ptr
return $ TimeSpec sec return $ TimeSpec sec
poke ptr (TimeSpec sec) = do 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) #{poke struct timeval, tv_usec} ptr (0 :: CLong)
foreign import ccall "utimes" foreign import ccall "utimes"
@ -114,7 +114,7 @@ touchBoth file atime mtime follow =
else c_utimes else c_utimes
#else #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 () touchBoth _ _ _ _ = return ()
#endif #endif
#endif #endif