{-# LANGUAGE CPP #-} module GhcTags.Utils ( endOfLine , notNewLine ) where -- | Platform dependend eol: -- -- * windows "CRNL" -- * maxos "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 forall a. Eq a => a -> a -> Bool /= Char '\n' Bool -> Bool -> Bool && Char x forall a. Eq a => a -> a -> Bool /= Char '\r'