diff options
| author | simonpj <simonpj@microsoft.com> | 2010-02-10 10:59:11 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2010-02-10 10:59:11 +0000 |
| commit | ec07e1fd1ecd0f1f9b6cad9ed5b6573b6adcb233 (patch) | |
| tree | e67bb4887f4784ac5158b8998d29ca59d56684c9 /testsuite/tests | |
| parent | 6043629ed594789a712202fa6ac9a30d237a6be6 (diff) | |
| download | haskell-ec07e1fd1ecd0f1f9b6cad9ed5b6573b6adcb233.tar.gz | |
New syntax for quasi-quotes, and record field names for QuasiQuoter type
Diffstat (limited to 'testsuite/tests')
7 files changed, 10 insertions, 10 deletions
diff --git a/testsuite/tests/ghc-regress/quasiquotation/qq001/qq001.hs b/testsuite/tests/ghc-regress/quasiquotation/qq001/qq001.hs index 0ef94644b5..652c8cf874 100644 --- a/testsuite/tests/ghc-regress/quasiquotation/qq001/qq001.hs +++ b/testsuite/tests/ghc-regress/quasiquotation/qq001/qq001.hs @@ -4,4 +4,4 @@ module Main where parse = undefined main :: IO () -main = print $ [$parse||] +main = print $ [parse||] diff --git a/testsuite/tests/ghc-regress/quasiquotation/qq002/qq002.hs b/testsuite/tests/ghc-regress/quasiquotation/qq002/qq002.hs index 98200b8ff2..a9ac995e5a 100644 --- a/testsuite/tests/ghc-regress/quasiquotation/qq002/qq002.hs +++ b/testsuite/tests/ghc-regress/quasiquotation/qq002/qq002.hs @@ -5,5 +5,5 @@ parse = undefined main :: IO () main = case () of - [$parse||] -> return () + [parse||] -> return () _ -> return () diff --git a/testsuite/tests/ghc-regress/quasiquotation/qq003/qq003.hs b/testsuite/tests/ghc-regress/quasiquotation/qq003/qq003.hs index f85b245a67..7afbad964e 100644 --- a/testsuite/tests/ghc-regress/quasiquotation/qq003/qq003.hs +++ b/testsuite/tests/ghc-regress/quasiquotation/qq003/qq003.hs @@ -2,4 +2,4 @@ module Main where main :: IO () -main = print $ \parse -> [$parse||] +main = print $ \parse -> [parse||] diff --git a/testsuite/tests/ghc-regress/quasiquotation/qq004/qq004.hs b/testsuite/tests/ghc-regress/quasiquotation/qq004/qq004.hs index 4571243c24..c95b94ef02 100644 --- a/testsuite/tests/ghc-regress/quasiquotation/qq004/qq004.hs +++ b/testsuite/tests/ghc-regress/quasiquotation/qq004/qq004.hs @@ -5,5 +5,5 @@ main :: IO () main = p undefined where p = \parse -> case () of - [$parse||] -> return () + [parse||] -> return () _ -> return () diff --git a/testsuite/tests/ghc-regress/quasiquotation/qq005/Expr.hs b/testsuite/tests/ghc-regress/quasiquotation/qq005/Expr.hs index 200423b3a6..d628e8d52f 100644 --- a/testsuite/tests/ghc-regress/quasiquotation/qq005/Expr.hs +++ b/testsuite/tests/ghc-regress/quasiquotation/qq005/Expr.hs @@ -74,7 +74,7 @@ parseExpr (Loc {loc_filename = file, loc_start = (line,col)}) s = eof return e -expr = QuasiQuoter parseExprExp parseExprPat +expr = QuasiQuoter { quoteExp = parseExprExp, quotePat = parseExprPat } parseExprExp :: String -> Q Exp parseExprExp s = do loc <- location diff --git a/testsuite/tests/ghc-regress/quasiquotation/qq005/Main.hs b/testsuite/tests/ghc-regress/quasiquotation/qq005/Main.hs index d6a28d326e..d8c8a3433c 100644 --- a/testsuite/tests/ghc-regress/quasiquotation/qq005/Main.hs +++ b/testsuite/tests/ghc-regress/quasiquotation/qq005/Main.hs @@ -4,10 +4,10 @@ module Main where import Expr main :: IO () -main = do print $ eval [$expr|1 + 3 + 5|] - case [$expr|2|] of - [$expr|$n|] -> print n +main = do print $ eval [expr|1 + 3 + 5|] + case [expr|2|] of + [expr|$n|] -> print n _ -> return () case [$expr|1 + 2|] of - [$expr|$x + $y|] -> putStrLn $ show x ++ " + " ++ show y + [expr|$x + $y|] -> putStrLn $ show x ++ " + " ++ show y _ -> return () diff --git a/testsuite/tests/ghc-regress/quasiquotation/qq006/Expr.hs b/testsuite/tests/ghc-regress/quasiquotation/qq006/Expr.hs index 200423b3a6..d628e8d52f 100644 --- a/testsuite/tests/ghc-regress/quasiquotation/qq006/Expr.hs +++ b/testsuite/tests/ghc-regress/quasiquotation/qq006/Expr.hs @@ -74,7 +74,7 @@ parseExpr (Loc {loc_filename = file, loc_start = (line,col)}) s = eof return e -expr = QuasiQuoter parseExprExp parseExprPat +expr = QuasiQuoter { quoteExp = parseExprExp, quotePat = parseExprPat } parseExprExp :: String -> Q Exp parseExprExp s = do loc <- location |