Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Ticket #4404 is now fixed: update test

  • Loading branch information...
commit 4d7b7ee0e3c7cb8c90a9cddb0f6b31cb4919a0a3 1 parent 759db95
@batterseapower batterseapower authored
View
9 tests/ghc-regress/typecheck/should_compile/T4404.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE RecordWildCards, DoRec #-}
module TT where
@@ -10,3 +10,10 @@ f d = x
g :: T -> Int
g (T {t1 = x, ..}) = x
+
+-- The fix to this test also affected the dorec checking code, hence this:
+h :: Maybe Int
+h = do
+ rec
+ T {t1 = x, ..} <- Just $ T 1 1
+ return x
View
2  tests/ghc-regress/typecheck/should_compile/all.T
@@ -329,7 +329,7 @@ test('T4361', normal, compile, [''])
test('T4355', reqlib('mtl'), compile, [''])
test('T1634', normal, compile, [''])
test('T4401', normal, compile, [''])
-test('T4404', expect_broken(4404), compile, ['-Wall'])
+test('T4404', normal, compile, ['-Wall'])
test('HasKey', normal, compile, [''])
test('T4418', normal, compile, [''])
test('T4444', normal, compile, [''])
Please sign in to comment.
Something went wrong with that request. Please try again.