module System.Path.Internal.Separator where extension :: Char extension :: Char extension = Char '.' searchPath :: Char searchPath :: Char searchPath = Char ':' isExtension :: Char -> Bool isExtension :: Char -> Bool isExtension = (Char -> Char -> Bool forall a. Eq a => a -> a -> Bool == Char extension) isSearchPath :: Char -> Bool isSearchPath :: Char -> Bool isSearchPath = (Char -> Char -> Bool forall a. Eq a => a -> a -> Bool == Char searchPath)