Testsuite: delete Windows line endings [skip ci] (#11631)
[ghc.git] / testsuite / tests / typecheck / should_compile / tc190.hs
index 97413c7..366a487 100644 (file)
@@ -1,11 +1,11 @@
 {-# LANGUAGE CPP, KindSignatures #-}
-\r
--- The record update triggered a kind error in GHC 6.2\r
-\r
-module Foo where\r
-\r
-data HT (ref :: * -> *)\r
-  = HT { kcount :: Int }\r
-\r
-set_kcount :: Int -> HT s -> HT s\r
-set_kcount kc ht = ht{kcount=kc}\r
+
+-- The record update triggered a kind error in GHC 6.2
+
+module Foo where
+
+data HT (ref :: * -> *)
+  = HT { kcount :: Int }
+
+set_kcount :: Int -> HT s -> HT s
+set_kcount kc ht = ht{kcount=kc}