Remove control-M
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 11 May 2011 16:29:59 +0000 (17:29 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 11 May 2011 16:29:59 +0000 (17:29 +0100)
testsuite/tests/ghc-regress/simplCore/should_compile/simpl019.hs

index 1c78487..66b8fc4 100644 (file)
@@ -1,14 +1,14 @@
 {-# LANGUAGE GADTs, FlexibleInstances #-}
-{-# OPTIONS_GHC -O2 #-}\r
-\r
--- See Trac #1746\r
-\r
-module Foo where\r
-\r
-data T a where T :: T a -> T [a]\r
-\r
-class C a where\r
-  f :: a -> ()\r
-\r
-instance C (T [a]) where\r
-  f (T x@(T _)) = f x\r
+{-# OPTIONS_GHC -O2 #-}
+
+-- See Trac #1746
+
+module Foo where
+
+data T a where T :: T a -> T [a]
+
+class C a where
+  f :: a -> ()
+
+instance C (T [a]) where
+  f (T x@(T _)) = f x