No title

Anonymous Coward 2018-03-08 23:13:45.982074 UTC

1{-# LANGUAGE NoMonomorphismRestriction #-}
2
3module OCI.Pass.TH where
4
5import Prologue
6import Language.Haskell.TH
7
8
9test name = do
10 VarI _ (VarT tname) _ <- reify name
11 runIO $ print tname
12 x <- reify tname
13 runIO $ print x
14 return []