build without disk-free-space on android

1 files changed, 15 insertions, 0 deletions

diff --git a/Utility/DiskFree.hs b/Utility/DiskFree.hs
index fe3a4577c..be4e82355 100644
--- a/Utility/DiskFree.hs
+++ b/Utility/DiskFree.hs
@@ -6,12 +6,15 @@
  -}
 
 {-# OPTIONS_GHC -fno-warn-tabs #-}
+{-# LANGUAGE CPP #-}
 
 module Utility.DiskFree (
 	getDiskFree,
 	getDiskSize
 ) where
 
+#ifndef __ANDROID__
+
 import System.DiskSpace
 import Utility.Applicative
 import Utility.Exception
@@ -21,3 +24,15 @@ getDiskFree = catchMaybeIO . getAvailSpace
 
 getDiskSize :: FilePath -> IO (Maybe Integer)
 getDiskSize = fmap diskTotal <$$> catchMaybeIO . getDiskUsage
+
+#else
+
+#warning Building without disk free space checking support
+
+getDiskFree :: FilePath -> IO (Maybe Integer)
+getDiskFree _ = return Nothing
+
+getDiskSize :: FilePath -> IO (Maybe Integer)
+getDiskSize _ = return Nothing
+
+#endif