remove debug
This commit is contained in:
parent
88ef64e566
commit
199ffa6c36
1 changed files with 0 additions and 1 deletions
|
@ -58,7 +58,6 @@ touchBoth file atime mtime follow =
|
||||||
withCString file $ \f -> do
|
withCString file $ \f -> do
|
||||||
pokeArray ptr [atime, mtime]
|
pokeArray ptr [atime, mtime]
|
||||||
r <- c_utimensat at_fdcwd f ptr flags
|
r <- c_utimensat at_fdcwd f ptr flags
|
||||||
putStrLn $ "ret " ++ (show r)
|
|
||||||
return (r == 0)
|
return (r == 0)
|
||||||
where
|
where
|
||||||
at_fdcwd = #const AT_FDCWD
|
at_fdcwd = #const AT_FDCWD
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue