testsuite/tests/ghc-regress/quasiquotation/qq004/qq004.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE QuasiQuotes #-}
module Main where

main :: IO ()
main = p undefined
  where
    p = \parse -> case () of
                    [parse||] -> return ()
                    _ -> return ()