cabal-testsuite/PackageTests/BuildToolPaths/pbts/bench/Main.hs

   1 {-# LANGUAGE TemplateHaskell #-}
   2
   3 module Main ( main ) where
   4
   5 -- template-haskell
   6 import Language.Haskell.TH
   7   ( runIO )
   8
   9 -- pbts
  10 import Call
  11   ( callCustomPp )
  12
  13 --------------------------------------------------------------------------------
  14
  15 -- Check that we can invoke the custom preprocessor, and that it finds its
  16 -- data directory, both at compile-time and at run-time.
  17
  18 $( do
  19     runIO $ do
  20       callCustomPp "custom-pp1"
  21       callCustomPp "custom-pp2"
  22     return []
  23   )
  24
  25 main :: IO ()
  26 main = do
  27   callCustomPp "custom-pp1"
  28   callCustomPp "custom-pp2"