Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / simplCore / should_compile / T3118.hs
index 57b1ad0..4193e7d 100644 (file)
@@ -1,12 +1,12 @@
--- Test Trac #3118
+-- Test #3118
 
 -- The test is quite delicate.  It aims to get 'f' to look like
 --   f y = case x of
 --             Red -> (y, y)
---            _ -> let v = case x of 
---                            Green -> 2
---                            Blue  -> 3
---                 in (v, 5)
+--             _ -> let v = case x of
+--                             Green -> 2
+--                             Blue  -> 3
+--                  in (v, 5)
 --
 -- And now float the inner case to top level
 -- so that it's not so obvious that the Red case
@@ -33,8 +33,8 @@ x = g True
 f :: Int -> (Int,Int)
 f y = case x of
          Red -> (y, y)
-        xx -> let v = case xx of 
-                         Red -> 1
-                         Green -> 2
-                         Blue  -> 3
-                in (v, 5)
+         xx -> let v = case xx of
+                          Red -> 1
+                          Green -> 2
+                          Blue  -> 3
+                 in (v, 5)