diff options
Diffstat (limited to 'testsuite/tests/th/T9022.hs')
| -rw-r--r-- | testsuite/tests/th/T9022.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/th/T9022.hs b/testsuite/tests/th/T9022.hs index fc61691da1..9c676aa7d0 100644 --- a/testsuite/tests/th/T9022.hs +++ b/testsuite/tests/th/T9022.hs @@ -10,7 +10,7 @@ foo = barD barD = FunD ( mkName "bar" ) [ Clause manyArgs (NormalB barBody) [] ] - barBody = DoE [letxStmt, retxStmt] + barBody = DoE Nothing [letxStmt, retxStmt] letxStmt = LetS [ ValD (VarP xName) (NormalB $ LitE $ IntegerL 5) [] ] retxStmt = NoBindS $ AppE returnVarE xVarE xName = mkName "x" |