summaryrefslogtreecommitdiff
path: root/testsuite/tests/th
diff options
context:
space:
mode:
authorThomas Miedema <thomasmiedema@gmail.com>2016-02-22 21:32:51 +0100
committerThomas Miedema <thomasmiedema@gmail.com>2016-02-23 12:28:00 +0100
commit28620ba6a7968ef3ab589f62ac761fffe4f42caa (patch)
tree3afb97d348e13b69eea352338c0615d614fe934e /testsuite/tests/th
parent42f06f6821a221b88d67b0adc110eea78c159d7f (diff)
downloadhaskell-28620ba6a7968ef3ab589f62ac761fffe4f42caa.tar.gz
Testsuite: delete Windows line endings [skip ci] (#11631)
Diffstat (limited to 'testsuite/tests/th')
-rw-r--r--testsuite/tests/th/T2700.stderr2
-rw-r--r--testsuite/tests/th/T3920.stdout4
-rw-r--r--testsuite/tests/th/T5217.stderr28
-rw-r--r--testsuite/tests/th/T5410.stdout2
-rw-r--r--testsuite/tests/th/T7241.stderr16
-rw-r--r--testsuite/tests/th/T8625.stdout4
-rw-r--r--testsuite/tests/th/T8932.stderr10
-rw-r--r--testsuite/tests/th/TH_linePragma.stderr4
-rw-r--r--testsuite/tests/th/TH_pragma.stderr32
-rw-r--r--testsuite/tests/th/TH_viewPatPrint.stdout4
10 files changed, 53 insertions, 53 deletions
diff --git a/testsuite/tests/th/T2700.stderr b/testsuite/tests/th/T2700.stderr
index 004521c197..d5fa0eeb5b 100644
--- a/testsuite/tests/th/T2700.stderr
+++ b/testsuite/tests/th/T2700.stderr
@@ -1 +1 @@
-foo :: (GHC.Types.Int -> GHC.Types.Bool) -> GHC.Types.Bool
+foo :: (GHC.Types.Int -> GHC.Types.Bool) -> GHC.Types.Bool
diff --git a/testsuite/tests/th/T3920.stdout b/testsuite/tests/th/T3920.stdout
index ddc9748894..a1e63c826f 100644
--- a/testsuite/tests/th/T3920.stdout
+++ b/testsuite/tests/th/T3920.stdout
@@ -1,2 +1,2 @@
-type family T_0 :: (* -> * -> * -> *) -> (* -> *) -> *
-type family Main.S :: (* -> * -> * -> *) -> (* -> *) -> *
+type family T_0 :: (* -> * -> * -> *) -> (* -> *) -> *
+type family Main.S :: (* -> * -> * -> *) -> (* -> *) -> *
diff --git a/testsuite/tests/th/T5217.stderr b/testsuite/tests/th/T5217.stderr
index fe9150d90b..e1a92c89ca 100644
--- a/testsuite/tests/th/T5217.stderr
+++ b/testsuite/tests/th/T5217.stderr
@@ -1,14 +1,14 @@
-T5217.hs:(6,3)-(9,53): Splicing declarations
- [d| data T a b
- where
- T1 :: Int -> T Int Char
- T2 :: a -> T a a
- T3 :: a -> T [a] a
- T4 :: a -> b -> T b [a] |]
- ======>
- data T a b
- where
- T1 :: Int -> T Int Char
- T2 :: forall a. a -> T a a
- T3 :: forall a. a -> T [a] a
- T4 :: forall a b. a -> b -> T b [a]
+T5217.hs:(6,3)-(9,53): Splicing declarations
+ [d| data T a b
+ where
+ T1 :: Int -> T Int Char
+ T2 :: a -> T a a
+ T3 :: a -> T [a] a
+ T4 :: a -> b -> T b [a] |]
+ ======>
+ data T a b
+ where
+ T1 :: Int -> T Int Char
+ T2 :: forall a. a -> T a a
+ T3 :: forall a. a -> T [a] a
+ T4 :: forall a b. a -> b -> T b [a]
diff --git a/testsuite/tests/th/T5410.stdout b/testsuite/tests/th/T5410.stdout
index cc9bc03d31..041cd138b2 100644
--- a/testsuite/tests/th/T5410.stdout
+++ b/testsuite/tests/th/T5410.stdout
@@ -1 +1 @@
-<function>
+<function>
diff --git a/testsuite/tests/th/T7241.stderr b/testsuite/tests/th/T7241.stderr
index 15c554175c..07d17c9da3 100644
--- a/testsuite/tests/th/T7241.stderr
+++ b/testsuite/tests/th/T7241.stderr
@@ -1,8 +1,8 @@
-
-T7241.hs:7:3: error:
- Same exact name in multiple name-spaces:
- type constructor or class ‘Foo’, declared at: T7241.hs:7:3
- data constructor ‘Foo’, declared at: T7241.hs:7:3
- Probable cause: you bound a unique Template Haskell name (NameU),
- perhaps via newName, in different name-spaces.
- If that's it, then -ddump-splices might be useful
+
+T7241.hs:7:3: error:
+ Same exact name in multiple name-spaces:
+ type constructor or class ‘Foo’, declared at: T7241.hs:7:3
+ data constructor ‘Foo’, declared at: T7241.hs:7:3
+ Probable cause: you bound a unique Template Haskell name (NameU),
+ perhaps via newName, in different name-spaces.
+ If that's it, then -ddump-splices might be useful
diff --git a/testsuite/tests/th/T8625.stdout b/testsuite/tests/th/T8625.stdout
index 000050bc97..8308c5b67d 100644
--- a/testsuite/tests/th/T8625.stdout
+++ b/testsuite/tests/th/T8625.stdout
@@ -1,2 +1,2 @@
-[InstanceD [AppT (AppT EqualityT (VarT y_0)) (AppT (AppT ArrowT (VarT t_1)) (VarT t_1))] (AppT (ConT Ghci1.Member) (ConT GHC.Types.Bool)) []]
-[SigD f_4 (ForallT [PlainTV y_2,PlainTV t_3] [AppT (AppT EqualityT (VarT y_2)) (AppT (AppT ArrowT (VarT t_3)) (VarT t_3))] (AppT (AppT ArrowT (VarT y_2)) (VarT t_3))),FunD f_4 [Clause [VarP x_5] (NormalB (VarE x_5)) []]]
+[InstanceD [AppT (AppT EqualityT (VarT y_0)) (AppT (AppT ArrowT (VarT t_1)) (VarT t_1))] (AppT (ConT Ghci1.Member) (ConT GHC.Types.Bool)) []]
+[SigD f_4 (ForallT [PlainTV y_2,PlainTV t_3] [AppT (AppT EqualityT (VarT y_2)) (AppT (AppT ArrowT (VarT t_3)) (VarT t_3))] (AppT (AppT ArrowT (VarT y_2)) (VarT t_3))),FunD f_4 [Clause [VarP x_5] (NormalB (VarE x_5)) []]]
diff --git a/testsuite/tests/th/T8932.stderr b/testsuite/tests/th/T8932.stderr
index 68fb024938..96e5d8a9fc 100644
--- a/testsuite/tests/th/T8932.stderr
+++ b/testsuite/tests/th/T8932.stderr
@@ -1,5 +1,5 @@
-
-T8932.hs:11:1: error:
- Multiple declarations of ‘foo’
- Declared at: T8932.hs:5:3
- T8932.hs:11:1
+
+T8932.hs:11:1: error:
+ Multiple declarations of ‘foo’
+ Declared at: T8932.hs:5:3
+ T8932.hs:11:1
diff --git a/testsuite/tests/th/TH_linePragma.stderr b/testsuite/tests/th/TH_linePragma.stderr
index 146d88f86e..03f35db988 100644
--- a/testsuite/tests/th/TH_linePragma.stderr
+++ b/testsuite/tests/th/TH_linePragma.stderr
@@ -1,2 +1,2 @@
-
-virtual file:42:1: error: Variable not in scope: doesntExist
+
+virtual file:42:1: error: Variable not in scope: doesntExist
diff --git a/testsuite/tests/th/TH_pragma.stderr b/testsuite/tests/th/TH_pragma.stderr
index 07b56645cd..0fcd167aa4 100644
--- a/testsuite/tests/th/TH_pragma.stderr
+++ b/testsuite/tests/th/TH_pragma.stderr
@@ -1,16 +1,16 @@
-TH_pragma.hs:(6,4)-(8,26): Splicing declarations
- [d| foo :: Int -> Int
- {-# NOINLINE foo #-}
- foo x = x + 1 |]
- ======>
- foo :: Int -> Int
- {-# NOINLINE foo #-}
- foo x = (x + 1)
-TH_pragma.hs:(10,4)-(12,31): Splicing declarations
- [d| bar :: Num a => a -> a
- {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-}
- bar x = x * 10 |]
- ======>
- bar :: forall a. Num a => a -> a
- {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-}
- bar x = (x * 10)
+TH_pragma.hs:(6,4)-(8,26): Splicing declarations
+ [d| foo :: Int -> Int
+ {-# NOINLINE foo #-}
+ foo x = x + 1 |]
+ ======>
+ foo :: Int -> Int
+ {-# NOINLINE foo #-}
+ foo x = (x + 1)
+TH_pragma.hs:(10,4)-(12,31): Splicing declarations
+ [d| bar :: Num a => a -> a
+ {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-}
+ bar x = x * 10 |]
+ ======>
+ bar :: forall a. Num a => a -> a
+ {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-}
+ bar x = (x * 10)
diff --git a/testsuite/tests/th/TH_viewPatPrint.stdout b/testsuite/tests/th/TH_viewPatPrint.stdout
index a995dae563..d0da709553 100644
--- a/testsuite/tests/th/TH_viewPatPrint.stdout
+++ b/testsuite/tests/th/TH_viewPatPrint.stdout
@@ -1,2 +1,2 @@
-ViewP (VarE GHC.Base.id) (VarP x_0)
-(GHC.Base.id -> x_0)
+ViewP (VarE GHC.Base.id) (VarP x_0)
+(GHC.Base.id -> x_0)