{-# LANGUAGE CPP #-} module GhcTags.Utils ( endOfLine , notNewLine ) where -- | Platform dependent eol: -- -- * Windows "CRNL" -- * MacOS "CR" -- * Linux (unit) "NL" -- endOfLine :: String #if defined(mingw32_HOST_OS) endOfLine = "\r\n" #elif defined(darwin_HIST_OS) endOfLine = "\r" #else endOfLine :: String endOfLine = String "\n" #endif notNewLine :: Char -> Bool notNewLine :: Char -> Bool notNewLine = \Char x -> Char x Char -> Char -> Bool forall a. Eq a => a -> a -> Bool /= Char '\n' Bool -> Bool -> Bool && Char x Char -> Char -> Bool forall a. Eq a => a -> a -> Bool /= Char '\r'