Testsuite: tabs -> spaces [skip ci]

1 files changed, 19 insertions, 19 deletions

diff --git a/testsuite/tests/concurrent/should_run/conc017.hs b/testsuite/tests/concurrent/should_run/conc017.hs
index c1ca4e745a..69c171732e 100644
--- a/testsuite/tests/concurrent/should_run/conc017.hs
+++ b/testsuite/tests/concurrent/should_run/conc017.hs
@@ -9,31 +9,31 @@ main = do
   m1 <- newEmptyMVar
   m2 <- newEmptyMVar
   m3 <- newEmptyMVar
-  forkIO (do 
-	     takeMVar m1
-	     throwTo main_thread (ErrorCall "foo")
-	     takeMVar m2
-	     throwTo main_thread (ErrorCall "bar")
-	     putMVar m3 ()
-	 )
-  (do 
+  forkIO (do
+             takeMVar m1
+             throwTo main_thread (ErrorCall "foo")
+             takeMVar m2
+             throwTo main_thread (ErrorCall "bar")
+             putMVar m3 ()
+         )
+  (do
     mask $ \restore -> do
-	(do putMVar m1 () 
+        (do putMVar m1 ()
             restore (
-		-- unblocked, "foo" delivered to "caught1"
-	       myDelay 100000
-	     )
-	 ) `Control.Exception.catch` 
+                -- unblocked, "foo" delivered to "caught1"
+               myDelay 100000
+             )
+         ) `Control.Exception.catch`
               \e -> putStrLn ("caught1: " ++ show (e::SomeException))
-	putMVar m2 ()
-	-- blocked here, "bar" can't be delivered
-	(sum [1..10000] `seq` return ())
-	  `Control.Exception.catch` 
+        putMVar m2 ()
+        -- blocked here, "bar" can't be delivered
+        (sum [1..10000] `seq` return ())
+          `Control.Exception.catch`
               \e -> putStrLn ("caught2: " ++ show (e::SomeException))
     -- unblocked here, "bar" delivered to "caught3"
     takeMVar m3
-   ) 
-   `Control.Exception.catch` 
+   )
+   `Control.Exception.catch`
        \e -> putStrLn ("caught3: " ++ show (e::SomeException))
 
 -- compensate for the fact that threadDelay is non-interruptible