libraries/template-haskell/tests/pragCompletePpr.hs


1
2
3
4
5
6
7

module Main (main) where

import Language.Haskell.TH.Ppr    (ppr)
import Language.Haskell.TH.Syntax (Dec (PragmaD), Pragma (CompleteP), mkName)

main :: IO ()
main = print $ ppr $ PragmaD $ CompleteP [mkName "Foo", mkName "Bar"] $ Just $ mkName "Bar"