Added Path.Internal.{Posix,Windows}.isWindows and removed some CPP fr…

…om Path include file

src/OsPath/Internal/Include.hs

@@ -295,6 +295,7 @@ isWindows = True
 #else
 isWindows = False
 #endif
+{-# INLINE isWindows #-}
 
 --------------------------------------------------------------------------------
 -- Orphan instances

src/Path/Include.hs

@@ -1,6 +1,5 @@
 -- This template expects CPP definitions for:
 --     PLATFORM_NAME = Posix | Windows
---     IS_WINDOWS    = 0 | 1
 
 -- | This library provides a well-typed representation of paths in a filesystem
 -- directory tree.
@@ -482,11 +481,9 @@ splitExtension (Path fpath) =
             trailingSeps = takeWhile isSep rstr
             xtn  = (takeWhile notSep . dropWhile isSep) rstr
         in (reverse name, reverse xtn ++ trailingSeps)
-#if IS_WINDOWS
-    normalizeDrive = normalizeTrailingSeps
-#else
-    normalizeDrive = id
-#endif
+    normalizeDrive
+      | isWindows = normalizeTrailingSeps
+      | otherwise = id
 
     (drv, pth)     = FilePath.splitDrive fpath
     (dir, file)    = splitLast FilePath.isPathSeparator pth
@@ -826,7 +823,6 @@ normalizeLeadingSeps path = normLeadingSep ++ rest
   where (leadingSeps, rest) = span FilePath.isPathSeparator path
         normLeadingSep = replicate (min 1 (length leadingSeps)) FilePath.pathSeparator
 
-#if IS_WINDOWS
 -- | Normalizes seps only at the end of a path.
 normalizeTrailingSeps :: FilePath -> FilePath
 normalizeTrailingSeps = reverse . normalizeLeadingSeps . reverse
@@ -846,15 +842,12 @@ normalizeWindowsSeps :: FilePath -> FilePath
 normalizeWindowsSeps path = normLeadingSeps ++ normalizeAllSeps rest
   where (leadingSeps, rest) = span FilePath.isPathSeparator path
         normLeadingSeps = replicate (min 2 (length leadingSeps)) FilePath.pathSeparator
-#endif
 
 -- | Applies platform-specific sep normalization following @FilePath.normalise@.
 normalizeFilePath :: FilePath -> FilePath
-#if IS_WINDOWS
-normalizeFilePath = normalizeWindowsSeps . FilePath.normalise
-#else
-normalizeFilePath = normalizeLeadingSeps . FilePath.normalise
-#endif
+normalizeFilePath
+  | isWindows = normalizeWindowsSeps . FilePath.normalise
+  | otherwise = normalizeLeadingSeps . FilePath.normalise
 
 -- | Path of some type.  @t@ represents the type, whether file or
 -- directory.  Pattern match to find whether the path is absolute or

src/Path/Internal/Include.hs

@@ -1,6 +1,6 @@
 -- This template expects CPP definitions for:
 --     PLATFORM_NAME = Posix | Windows
---     IS_WINDOWS    = False | True
+--     IS_WINDOWS    = 0 | 1
 
 {-# LANGUAGE CPP                #-}
 {-# LANGUAGE DeriveGeneric      #-}
@@ -15,6 +15,7 @@ module Path.Internal.PLATFORM_NAME
   , relRootFP
   , toFilePath
   , hasParentDir
+  , isWindows
   )
   where
 
@@ -136,3 +137,11 @@ instance forall b t. (Typeable b, Typeable t) => TH.Lift (Path b t) where
 #elif MIN_VERSION_template_haskell(2,16,0)
   liftTyped = TH.unsafeTExpCoerce . TH.lift
 #endif
+
+isWindows :: Bool
+#if IS_WINDOWS
+isWindows = True
+#else
+isWindows = False
+#endif
+{-# INLINE isWindows #-}

src/Path/Internal/Posix.hs

@@ -1,4 +1,4 @@
 {-# LANGUAGE CPP #-}
 #define PLATFORM_NAME   Posix
-#define IS_WINDOWS      False
+#define IS_WINDOWS      0
 #include "Include.hs"

src/Path/Internal/Windows.hs

@@ -1,4 +1,4 @@
 {-# LANGUAGE CPP #-}
 #define PLATFORM_NAME   Windows
-#define IS_WINDOWS      True
+#define IS_WINDOWS      1
 #include "Include.hs"

src/Path/Posix.hs

@@ -1,4 +1,3 @@
 {-# LANGUAGE CPP #-}
 #define PLATFORM_NAME   Posix
-#define IS_WINDOWS      0
 #include "Include.hs"

src/Path/Windows.hs

@@ -1,4 +1,3 @@
 {-# LANGUAGE CPP #-}
 #define PLATFORM_NAME   Windows
-#define IS_WINDOWS      1
 #include "Include.hs"