Idris2/tests/base/data_string_unlines001/Unlines.idr

import Data.String

main : IO ()
main = do printLn ("<" ++ (unlines []) ++ ">")
          printLn ("<" ++ (unlines ["ab"]) ++ ">")
          printLn ("<" ++ (unlines ["a", "b"]) ++ ">")
          printLn ("<" ++ (fastUnlines []) ++ ">")
          printLn ("<" ++ (fastUnlines ["ab"]) ++ ">")
          printLn ("<" ++ (fastUnlines ["a", "b"]) ++ ">")
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 ("<" ++ (unlines []) ++ ">")`
			`printLn ("<" ++ (unlines ["ab"]) ++ ">")`
			`printLn ("<" ++ (unlines ["a", "b"]) ++ ">")`
			`printLn ("<" ++ (fastUnlines []) ++ ">")`
			`printLn ("<" ++ (fastUnlines ["ab"]) ++ ">")`
			`printLn ("<" ++ (fastUnlines ["a", "b"]) ++ ">")`