never executed always true always false

    1 module Core.System.Path (normalizePath) where
    2 
    3 -- | Convert Windows backslashes to forward slashes for pragma-safe paths.
    4 normalizePath :: String -> String
    5 normalizePath = map replaceBackslash
    6   where
    7     replaceBackslash '\\' = '/'
    8     replaceBackslash c = c