diff options
author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-22 21:32:51 +0100 |
---|---|---|
committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-23 12:28:00 +0100 |
commit | 28620ba6a7968ef3ab589f62ac761fffe4f42caa (patch) | |
tree | 3afb97d348e13b69eea352338c0615d614fe934e /testsuite/tests/th | |
parent | 42f06f6821a221b88d67b0adc110eea78c159d7f (diff) | |
download | haskell-28620ba6a7968ef3ab589f62ac761fffe4f42caa.tar.gz |
Testsuite: delete Windows line endings [skip ci] (#11631)
Diffstat (limited to 'testsuite/tests/th')
-rw-r--r-- | testsuite/tests/th/T2700.stderr | 2 | ||||
-rw-r--r-- | testsuite/tests/th/T3920.stdout | 4 | ||||
-rw-r--r-- | testsuite/tests/th/T5217.stderr | 28 | ||||
-rw-r--r-- | testsuite/tests/th/T5410.stdout | 2 | ||||
-rw-r--r-- | testsuite/tests/th/T7241.stderr | 16 | ||||
-rw-r--r-- | testsuite/tests/th/T8625.stdout | 4 | ||||
-rw-r--r-- | testsuite/tests/th/T8932.stderr | 10 | ||||
-rw-r--r-- | testsuite/tests/th/TH_linePragma.stderr | 4 | ||||
-rw-r--r-- | testsuite/tests/th/TH_pragma.stderr | 32 | ||||
-rw-r--r-- | testsuite/tests/th/TH_viewPatPrint.stdout | 4 |
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) |