From 915e07c33b143126e3c8de1d2ec22ccc709a9a24 Mon Sep 17 00:00:00 2001
From: Thomas Miedema <thomasmiedema@gmail.com>
Date: Sat, 18 Jun 2016 22:44:19 +0200
Subject: Testsuite: tabs -> spaces [skip ci]

---
 testsuite/tests/rename/should_fail/rnfail002.hs |  2 +-
 testsuite/tests/rename/should_fail/rnfail004.hs |  6 +++---
 testsuite/tests/rename/should_fail/rnfail008.hs | 18 +++++++++---------
 testsuite/tests/rename/should_fail/rnfail015.hs |  2 +-
 testsuite/tests/rename/should_fail/rnfail017.hs | 14 +++++++-------
 testsuite/tests/rename/should_fail/rnfail020.hs |  2 +-
 testsuite/tests/rename/should_fail/rnfail023.hs |  6 +++---
 7 files changed, 25 insertions(+), 25 deletions(-)

(limited to 'testsuite/tests/rename/should_fail')

diff --git a/testsuite/tests/rename/should_fail/rnfail002.hs b/testsuite/tests/rename/should_fail/rnfail002.hs
index ab387223fc..bb65762d45 100644
--- a/testsuite/tests/rename/should_fail/rnfail002.hs
+++ b/testsuite/tests/rename/should_fail/rnfail002.hs
@@ -1,5 +1,5 @@
 -- !!! rn001: super-simple set of bindings,
--- !!!	incl wildcard pattern-bindings and *duplicates*
+-- !!!  incl wildcard pattern-bindings and *duplicates*
 
 x = []
 y = []
diff --git a/testsuite/tests/rename/should_fail/rnfail004.hs b/testsuite/tests/rename/should_fail/rnfail004.hs
index 90a97f894c..f8f01ee6ff 100644
--- a/testsuite/tests/rename/should_fail/rnfail004.hs
+++ b/testsuite/tests/rename/should_fail/rnfail004.hs
@@ -3,6 +3,6 @@ module Foo where
 
 f x = x
   where
-    a		= []
-    (b,c,a)	= ([],[],d)
-    [d,b,_]	= ([],a,[])
+    a           = []
+    (b,c,a)     = ([],[],d)
+    [d,b,_]     = ([],a,[])
diff --git a/testsuite/tests/rename/should_fail/rnfail008.hs b/testsuite/tests/rename/should_fail/rnfail008.hs
index 196214a840..f63fab5cdf 100644
--- a/testsuite/tests/rename/should_fail/rnfail008.hs
+++ b/testsuite/tests/rename/should_fail/rnfail008.hs
@@ -3,17 +3,17 @@
 module Test where
 
 class K a where
-	op1 :: a -> a -> a
-	op2 :: Int -> a
+        op1 :: a -> a -> a
+        op2 :: Int -> a
 
 instance K Int where
-	op1 a b = a+b
-	op2 x   = x
+        op1 a b = a+b
+        op2 x   = x
 
 instance K Bool where
-	op1 a b = a
-	-- Pick up the default decl for op2
-	
+        op1 a b = a
+        -- Pick up the default decl for op2
+
 instance K [a] where
-	op3 a = a	-- Oops!  Isn't a class op of K
-	
+        op3 a = a       -- Oops!  Isn't a class op of K
+
diff --git a/testsuite/tests/rename/should_fail/rnfail015.hs b/testsuite/tests/rename/should_fail/rnfail015.hs
index 20f9934f4b..1f20a7efb2 100644
--- a/testsuite/tests/rename/should_fail/rnfail015.hs
+++ b/testsuite/tests/rename/should_fail/rnfail015.hs
@@ -11,7 +11,7 @@ data Token
      |  TokIs
      |  TokDeref
      |  TokFind
-     |  TokLiteral		-- Duplicated!
+     |  TokLiteral              -- Duplicated!
      |  TokThe
 
       deriving Show
diff --git a/testsuite/tests/rename/should_fail/rnfail017.hs b/testsuite/tests/rename/should_fail/rnfail017.hs
index 327a9d6abd..9090e23e3f 100644
--- a/testsuite/tests/rename/should_fail/rnfail017.hs
+++ b/testsuite/tests/rename/should_fail/rnfail017.hs
@@ -2,16 +2,16 @@ module ShouldFail where
 
 -- !!! Precedence of unary negation
 
-f1 x y = x + -y 	-- Fails
-f2 x y = x * -y		-- Fails
+f1 x y = x + -y         -- Fails
+f2 x y = x * -y         -- Fails
 
 
-f3 x y = -x + y		-- OK: means  (-x) + y
-			-- since - is left associative
+f3 x y = -x + y         -- OK: means  (-x) + y
+                        -- since - is left associative
 
-f4 x y = - x*y		-- OK: means -(x*y)
-			-- since - binds less tightly than *
+f4 x y = - x*y          -- OK: means -(x*y)
+                        -- since - binds less tightly than *
 
-f5 x y = x >= -y	-- OK means x >= (-y)
+f5 x y = x >= -y        -- OK means x >= (-y)
 
 
diff --git a/testsuite/tests/rename/should_fail/rnfail020.hs b/testsuite/tests/rename/should_fail/rnfail020.hs
index c6efc4d5f7..c76f8924ef 100644
--- a/testsuite/tests/rename/should_fail/rnfail020.hs
+++ b/testsuite/tests/rename/should_fail/rnfail020.hs
@@ -17,6 +17,6 @@ unionSetB (s1 :: Set a) s2 = unionSets s1 s2
 {- In GHC 4.04 this gave the terrible message:
 
     None of the type variable(s) in the constraint `Eq a'
-	appears in the type `Set a -> Set a -> Set a'
+        appears in the type `Set a -> Set a -> Set a'
     In the type signature for `unionSets'
 -}
diff --git a/testsuite/tests/rename/should_fail/rnfail023.hs b/testsuite/tests/rename/should_fail/rnfail023.hs
index bf7c4a2f20..07f804b731 100644
--- a/testsuite/tests/rename/should_fail/rnfail023.hs
+++ b/testsuite/tests/rename/should_fail/rnfail023.hs
@@ -1,4 +1,4 @@
--- !!! Check that type signatures and pragmas that 
+-- !!! Check that type signatures and pragmas that
 -- !!! don't have a "parent" are correctly reported
 
 module ShouldFail where
@@ -8,8 +8,8 @@ f :: Int -> Int
 {-# INLINE f #-}
 
 -- Nested test
-h :: Int -> Int	-- This one is ok
+h :: Int -> Int -- This one is ok
 h x = x
     where
-      g :: Int -> Int	-- Bogus
+      g :: Int -> Int   -- Bogus
 
-- 
cgit v1.2.1