libraries/template-haskell/tests/dataToExpQUnit.hs


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


{-# LANGUAGE TemplateHaskell #-}

module Foo where

import Language.Haskell.TH
import Language.Haskell.TH.Quote
import System.IO

$( do u1 <- runQ (dataToExpQ (const Nothing) ())
      u2 <- runQ [| () |]
      runIO $ print (u1 == u2)
      runIO $ hFlush stdout
      return []
 )