From bee420bd2d0cbe16489b061b208083e2b8ba9d0e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 21 Apr 2012 23:04:59 -0400 Subject: in which I discover void void :: Functor f => f a -> f () -- ah, of course that's useful :) --- Utility/FileMode.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Utility/FileMode.hs') diff --git a/Utility/FileMode.hs b/Utility/FileMode.hs index c0f2ad589..353de7b92 100644 --- a/Utility/FileMode.hs +++ b/Utility/FileMode.hs @@ -15,9 +15,7 @@ import Foreign (complement) {- Applies a conversion function to a file's mode. -} modifyFileMode :: FilePath -> (FileMode -> FileMode) -> IO () -modifyFileMode f convert = do - _ <- modifyFileMode' f convert - return () +modifyFileMode f convert = void $ modifyFileMode' f convert modifyFileMode' :: FilePath -> (FileMode -> FileMode) -> IO FileMode modifyFileMode' f convert = do s <- getFileStatus f -- cgit v1.2.3