summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/TH_where.hs
blob: 94d8db76d4cdeae50961ac97e988e37ad98027f7 (plain)
1
2
3
4
5
6
7
8
{-# LANGUAGE TemplateHaskell #-}

module Main where

import Language.Haskell.TH


main = do {d <- runQ $ [| let { foo = bar where bar = 3 } in foo |];  print d}