4f657aa14e
Avoid using fileSize which maxes out at just 2 gb on Windows. Instead, use hFileSize, which doesn't have a bounded size. Fixes support for files > 2 gb on Windows. Note that the InodeCache code only needs to compare a file size, so it doesn't matter it the file size wraps. So it has been left as-is. This was necessary both to avoid invalidating existing inode caches, and because the code passed FileStatus around and would have become more expensive if it called getFileSize. This commit was sponsored by Christian Dietrich.
37 lines
997 B
Haskell
37 lines
997 B
Haskell
{-# LANGUAGE PackageImports, CPP #-}
|
|
|
|
module Common (module X) where
|
|
|
|
import Control.Monad as X
|
|
import Control.Monad.IfElse as X
|
|
import Control.Applicative as X
|
|
import "mtl" Control.Monad.State.Strict as X (liftIO)
|
|
|
|
import Data.Maybe as X
|
|
import Data.List as X hiding (head, tail, init, last)
|
|
import Data.String.Utils as X hiding (join)
|
|
import Data.Monoid as X
|
|
|
|
import System.FilePath as X
|
|
import System.Directory as X
|
|
import System.IO as X hiding (FilePath)
|
|
#ifndef mingw32_HOST_OS
|
|
import System.Posix.IO as X hiding (createPipe)
|
|
#endif
|
|
import System.Exit as X
|
|
|
|
import Utility.Misc as X
|
|
import Utility.Exception as X
|
|
import Utility.SafeCommand as X
|
|
import Utility.Process as X
|
|
import Utility.Path as X
|
|
import Utility.Directory as X
|
|
import Utility.Monad as X
|
|
import Utility.Data as X
|
|
import Utility.Applicative as X
|
|
import Utility.FileSystemEncoding as X
|
|
import Utility.PosixFiles as X hiding (fileSize)
|
|
import Utility.FileSize as X
|
|
import Utility.Network as X
|
|
|
|
import Utility.PartialPrelude as X
|