testsuite/tests/ghc-regress/th/TH_spliceGuard.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# OPTIONS_GHC -XTemplateHaskell #-}

-- Trac #2017

module ShouldCompile where

 import Language.Haskell.TH

 $(do e <- [d| f a b
                 | a == b = a
                 | otherwise = b |]
      return e)