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

build fix

Browse source
This commit is contained in:
Joey Hess 2015-01-20 17:27:42 -04:00
parent 27c24b7407
commit 7a14edce5a
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/FileSize.hs
View file

@ -8,8 +8,10 @@
module Utility.FileSize where module Utility.FileSize where
import System.PosixCompat.Files import System.PosixCompat.Files
#ifdef mingw32_HOST_OS
import Control.Exception (bracket) import Control.Exception (bracket)
import System.IO import System.IO
#endif
{- Gets the size of a file. {- Gets the size of a file.
- -
@ -19,7 +21,7 @@ import System.IO
-} -}
getFileSize :: FilePath -> IO Integer getFileSize :: FilePath -> IO Integer
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
getFileSize f = fromIntegral . fileSize <$> getFileStatus f getFileSize f = fmap (fromIntegral . fileSize) (getFileStatus f)
#else #else
getFileSize f = bracket (openFile f ReadMode) hClose hFileSize getFileSize f = bracket (openFile f ReadMode) hClose hFileSize
#endif #endif