Idris2/tests/base/data_string_lines001/Lines.idr

import Data.String

main : IO ()
main = do printLn (lines "")
          printLn (lines "ab")
          printLn (lines "ab\n")
          printLn (lines "ab\ncd")
          printLn (lines "ab\ncd\n")
          printLn (lines "a\rb")
          printLn (lines "a\r\nb")
          printLn (lines "\n\r\n\n")
Change semantics of lines and unlines function to match Haskell and other languages (#1585) * Add trailing newline on non-empty list in unlines There are several reasons to do that: * a line in a text file is something which ends with newline, and the last line is not special * `unlines []` should be different from `unlines [""]` * `unlines (a ++ b) = unlines a ++ unlines b` * Haskell does it * Change lines function behaviour 2021-07-17 16:54:23 +03:00			`import Data.String`

			`main : IO ()`
			`main = do printLn (lines "")`
			`printLn (lines "ab")`
			`printLn (lines "ab\n")`
			`printLn (lines "ab\ncd")`
			`printLn (lines "ab\ncd\n")`
			`printLn (lines "a\rb")`
			`printLn (lines "a\r\nb")`
			`printLn (lines "\n\r\n\n")`