diff options
Diffstat (limited to 'testsuite/tests/quasiquotation/qq006/Expr.hs')
| -rw-r--r-- | testsuite/tests/quasiquotation/qq006/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/quasiquotation/qq006/Expr.hs b/testsuite/tests/quasiquotation/qq006/Expr.hs index 1c51d9db1f..767d906ba4 100644 --- a/testsuite/tests/quasiquotation/qq006/Expr.hs +++ b/testsuite/tests/quasiquotation/qq006/Expr.hs @@ -64,7 +64,7 @@ anti = lexeme $ cs <- many idchar return $ AntiIntExpr (c : cs) -parseExpr :: Monad m => TH.Loc -> String -> m Expr +parseExpr :: MonadFail m => TH.Loc -> String -> m Expr parseExpr (Loc {loc_filename = file, loc_start = (line,col)}) s = case runParser p () "" s of Left err -> fail $ show err |