module Language.Haskell.Formatter.Internal.Newline
(newlines, joinSeparatedLines, splitSeparatedLines) where
import qualified Data.List as List
import qualified Language.Haskell.Formatter.Toolkit.Splitter as Splitter
newlines :: [String]
newlines :: [String]
newlines = [String
"\CR\LF", String
"\LF", String
"\VT", String
"\FF", String
"\CR", String
"\x85", String
"\x2028", String
"\x2029"]
joinSeparatedLines :: [String] -> String
joinSeparatedLines :: [String] -> String
joinSeparatedLines = String -> [String] -> String
forall a. [a] -> [[a]] -> [a]
List.intercalate String
defaultNewline
where defaultNewline :: String
defaultNewline = String
"\LF"
splitSeparatedLines :: String -> [String]
splitSeparatedLines :: String -> [String]
splitSeparatedLines = [String] -> String -> [String]
forall a. Eq a => [[a]] -> [a] -> [[a]]
Splitter.separate [String]
newlines