testsuite/tests/th/TH_Roles4.hs


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

{-# LANGUAGE TemplateHaskell #-}

module Roles4 where

import Language.Haskell.TH
import System.IO

data Sticky a b = MkSticky (a b)

$( do roles <- reifyRoles (mkName "Sticky")
      runIO $ putStrLn (show roles) >> hFlush stdout
      return [] )