testsuite/tests/ghc-regress/quasiquotation/qq006/Main.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE QuasiQuotes #-}
module Main where

import Expr

main :: IO ()
main = do  case [$expr|1 + 2|] of
             [$expr|$x + $x|] -> print x
             _                -> return ()