Permalink
Browse files

Ticket #4404 is now fixed: update test

  • Loading branch information...
1 parent 759db95 commit 4d7b7ee0e3c7cb8c90a9cddb0f6b31cb4919a0a3 @batterseapower batterseapower committed Apr 2, 2011
@@ -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
@@ -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, [''])

0 comments on commit 4d7b7ee

Please sign in to comment.