diff options
Diffstat (limited to 'testsuite/tests/th/T3899a.hs')
| -rw-r--r-- | testsuite/tests/th/T3899a.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/th/T3899a.hs b/testsuite/tests/th/T3899a.hs index 73ed534786..a63c17b0d3 100644 --- a/testsuite/tests/th/T3899a.hs +++ b/testsuite/tests/th/T3899a.hs @@ -12,4 +12,4 @@ nestedTuple n = do xs <- replicateM n (newName "x") return $ LamE [foldr (\v prev -> ParensP (ConP 'Cons [VarP v,prev])) (ConP 'Nil []) xs] - (TupE $ map VarE xs) + (TupE $ map (Just . VarE) xs) |