testsuite/tests/driver/multipleHomeUnits/th/TH.hs


1
2
3
4
5
6
7
8

{-# LANGUAGE TemplateHaskell #-}
module TH where

import Language.Haskell.TH.Syntax
import System.Directory
import System.FilePath

th = $(makeRelativeToProject "data" >>= runIO . readFile >> [| () |])