path: root/testsuite/tests/th/T10019.script

:set -XTemplateHaskell
import Language.Haskell.TH
data Option a = Some a | None
$(reify 'Some >>= stringE . pprint)