Testsuite: delete Windows line endings [skip ci] (#11631)

5 files changed, 49 insertions, 49 deletions

diff --git a/testsuite/tests/parser/should_compile/read062.hs b/testsuite/tests/parser/should_compile/read062.hs
index d324111de5..3d816a28e2 100644
--- a/testsuite/tests/parser/should_compile/read062.hs
+++ b/testsuite/tests/parser/should_compile/read062.hs
@@ -1,16 +1,16 @@
-{-# OPTIONS_GHC -XTransformListComp #-}

-

-module Foo where

-

-import Data.List

-import GHC.Exts

-

-foo = [ ()

-      | x <- [1..10]

-      , then take 5

-      , then sortWith by x

-      , then group by x using groupWith

-      , then group using inits

-      , then group by x using groupWith

-      ]

-

+{-# OPTIONS_GHC -XTransformListComp #-}
+
+module Foo where
+
+import Data.List
+import GHC.Exts
+
+foo = [ ()
+      | x <- [1..10]
+      , then take 5
+      , then sortWith by x
+      , then group by x using groupWith
+      , then group using inits
+      , then group by x using groupWith
+      ]
+
diff --git a/testsuite/tests/parser/should_fail/readFail031.hs b/testsuite/tests/parser/should_fail/readFail031.hs
index d07f8979a6..979d3ceda0 100644
--- a/testsuite/tests/parser/should_fail/readFail031.hs
+++ b/testsuite/tests/parser/should_fail/readFail031.hs
@@ -1,4 +1,4 @@
-module ShouldFail where

-

-class Foo o where

-  (:+) :: o -> o -> o

+module ShouldFail where
+
+class Foo o where
+  (:+) :: o -> o -> o
diff --git a/testsuite/tests/parser/should_fail/readFail042.hs b/testsuite/tests/parser/should_fail/readFail042.hs
index bdd9f97094..7849e7f023 100644
--- a/testsuite/tests/parser/should_fail/readFail042.hs
+++ b/testsuite/tests/parser/should_fail/readFail042.hs
@@ -1,12 +1,12 @@
--- Check error message for transforms if we don't have the right extension turned on

-

-module Foo where

-

-import Data.List

-import GHC.Exts

-

-foo = [ ()

-      | x <- [1..10]

-      , then take 5

-      , then sortWith by x

-      ]
\ No newline at end of file
+-- Check error message for transforms if we don't have the right extension turned on
+
+module Foo where
+
+import Data.List
+import GHC.Exts
+
+foo = [ ()
+      | x <- [1..10]
+      , then take 5
+      , then sortWith by x
+      ]
diff --git a/testsuite/tests/parser/should_fail/readFail043.hs b/testsuite/tests/parser/should_fail/readFail043.hs
index 65e00b36bd..c88e44baa7 100644
--- a/testsuite/tests/parser/should_fail/readFail043.hs
+++ b/testsuite/tests/parser/should_fail/readFail043.hs
@@ -1,14 +1,14 @@
--- Check error message for groups if we don't have the right extension turned on

-

-module Foo where

-

-import Data.List

-import GHC.Exts

-

-foo = [ ()

-      | x <- [1..10]

-      , then group by x using groupWith

-      , then group by x using groupWith

-      , then group using inits

-      ]

-

+-- Check error message for groups if we don't have the right extension turned on
+
+module Foo where
+
+import Data.List
+import GHC.Exts
+
+foo = [ ()
+      | x <- [1..10]
+      , then group by x using groupWith
+      , then group by x using groupWith
+      , then group using inits
+      ]
+
diff --git a/testsuite/tests/parser/unicode/T1744.hs b/testsuite/tests/parser/unicode/T1744.hs
index 90273741da..5fd6687b13 100644
--- a/testsuite/tests/parser/unicode/T1744.hs
+++ b/testsuite/tests/parser/unicode/T1744.hs
@@ -1,3 +1,3 @@
-main = print hello

--- test that layout has not been screwed up

-hello = "こんにちは 世界"

+main = print hello
+-- test that layout has not been screwed up
+hello = "こんにちは 世界"