missing include

This commit is contained in:
Joey Hess 2013-12-10 01:21:39 -04:00
parent 063a183a61
commit 89b5256f09

View file

@ -33,6 +33,8 @@ getDiskFree path = withFilePath path $ \c_path -> do
#else #else
#ifdef mingw32_HOST_OS #ifdef mingw32_HOST_OS
import Common
import System.Win32.File import System.Win32.File
getDiskFree :: FilePath -> IO (Maybe Integer) getDiskFree :: FilePath -> IO (Maybe Integer)