cabal-install/tests/IntegrationTests2/CPP.hs

   1 {- FOURMOLU_DISABLE -}
   2 {-# LANGUAGE CPP #-}
   3
   4 module IntegrationTests2.CPP
   5   ( removePathForcibly
   6   , isMingw32
   7   ) where
   8
   9 import Distribution.Client.Compat.Prelude
  10 import Prelude ()
  11
  12 #if MIN_VERSION_directory(1,2,7)
  13 import System.Directory (removePathForcibly)
  14 #endif
  15
  16 #if !MIN_VERSION_directory(1,2,7)
  17 removePathForcibly :: FilePath -> IO ()
  18 removePathForcibly = removeDirectoryRecursive
  19 #endif
  20
  21 isMingw32 :: Bool
  22 #ifndef mingw32_HOST_OS
  23 isMingw32 = True
  24 #else
  25 isMingw32 = False
  26 #endif