Testsuite: delete Windows line endings [skip ci] (#11631)
[ghc.git] / testsuite / tests / typecheck / should_fail / T3613.hs
index 9969d63..8b6f745 100644 (file)
@@ -1,19 +1,19 @@
--- c.f Trac #3613\r
-\r
-module T3613 where\r
-\r
-import Control.Monad\r
-\r
-foo :: Maybe ()\r
-foo = return ()\r
-\r
-bar :: IO ()\r
-bar = return ()\r
-\r
-fun1 = let fooThen m = foo>> m\r
-       in fooThen (bar>> undefined)\r
-\r
-fun2 = let fooThen m = foo>> m\r
-       in fooThen (do {bar; undefined})\r
-\r
-\r
+-- c.f Trac #3613
+
+module T3613 where
+
+import Control.Monad
+
+foo :: Maybe ()
+foo = return ()
+
+bar :: IO ()
+bar = return ()
+
+fun1 = let fooThen m = foo>> m
+       in fooThen (bar>> undefined)
+
+fun2 = let fooThen m = foo>> m
+       in fooThen (do {bar; undefined})
+
+