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

3 files changed, 33 insertions, 33 deletions

diff --git a/testsuite/tests/quasiquotation/T4491/A.hs b/testsuite/tests/quasiquotation/T4491/A.hs
index 8c562d7221..dad3d03396 100644
--- a/testsuite/tests/quasiquotation/T4491/A.hs
+++ b/testsuite/tests/quasiquotation/T4491/A.hs
@@ -1,9 +1,9 @@
-{-# LANGUAGE DeriveDataTypeable #-}

-

-module A where

-

-import Data.Data

-import Data.Typeable

-

-data Foo = Foo Int

-  deriving (Show, Data, Typeable)

+{-# LANGUAGE DeriveDataTypeable #-}
+
+module A where
+
+import Data.Data
+import Data.Typeable
+
+data Foo = Foo Int
+  deriving (Show, Data, Typeable)
diff --git a/testsuite/tests/quasiquotation/qq007/QQ.hs b/testsuite/tests/quasiquotation/qq007/QQ.hs
index 3c13315a31..eee8dc9670 100644
--- a/testsuite/tests/quasiquotation/qq007/QQ.hs
+++ b/testsuite/tests/quasiquotation/qq007/QQ.hs
@@ -1,11 +1,11 @@
-{-# LANGUAGE TemplateHaskell #-}

-module QQ where

-

-import Language.Haskell.TH.Quote

-import Language.Haskell.TH

-

-pq = QuasiQuoter { quoteDec = \_ -> [d| f x = x |], 

-                   quoteType = \_ -> [t| Int -> Int |],

-                   quoteExp = \_ -> [| $(varE (mkName "x")) + 1::Int |],

-                   quotePat = \_ -> [p| Just x |] }

-

+{-# LANGUAGE TemplateHaskell #-}
+module QQ where
+
+import Language.Haskell.TH.Quote
+import Language.Haskell.TH
+
+pq = QuasiQuoter { quoteDec = \_ -> [d| f x = x |],
+                   quoteType = \_ -> [t| Int -> Int |],
+                   quoteExp = \_ -> [| $(varE (mkName "x")) + 1::Int |],
+                   quotePat = \_ -> [p| Just x |] }
+
diff --git a/testsuite/tests/quasiquotation/qq007/Test.hs b/testsuite/tests/quasiquotation/qq007/Test.hs
index 42cef722d3..0f813219b1 100644
--- a/testsuite/tests/quasiquotation/qq007/Test.hs
+++ b/testsuite/tests/quasiquotation/qq007/Test.hs
@@ -1,13 +1,13 @@
-{-# LANGUAGE QuasiQuotes #-}

-module Test where

-

-import QQ

-

-f :: [pq| foo |]    -- Expands to Int -> Int

-[pq| blah |]	    -- Expands to f x = x

-

-h [pq| foo |] = f [pq| blah |] * 8	

-	-- Expands to h (Just x) = f (x+1) * 8

-

-

-

+{-# LANGUAGE QuasiQuotes #-}
+module Test where
+
+import QQ
+
+f :: [pq| foo |]    -- Expands to Int -> Int
+[pq| blah |]        -- Expands to f x = x
+
+h [pq| foo |] = f [pq| blah |] * 8
+        -- Expands to h (Just x) = f (x+1) * 8
+
+
+