testsuite/tests/th/T18102b_aux.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE RebindableSyntax, TemplateHaskell #-}
module T18102b_aux where

import Prelude
import Language.Haskell.TH.Syntax

ifThenElse :: Bool -> Int -> Int -> Int
ifThenElse _ a b = a+b

intQuote :: Code Q Int
intQuote = [|| if True then 10 else 15 ||]