gregwebs · November 5, 2011 17:09
diff --git a/External.hs b/External.hs
 module External where

 import Language.Haskell.TH.Syntax
 import Language.Haskell.TH.Lib

 loadStringFromFile :: Q Exp 
 loadStringFromFile = do
  let externalDependency = "external.txt"
  qAddDependentFile externalDependency
  s <- qRunIO $ readFile externalDependency
  stringE s
diff --git a/external.txt b/external.txt
 Change Me!
diff --git a/main.hs b/main.hs
 -- main.hs
 {-# LANGUAGE TemplateHaskell #-}
 module Main where
 import External (loadStringFromFile)

 main :: IO ()
 main = putStrLn $loadStringFromFile
	module External where

	import Language.Haskell.TH.Syntax
	import Language.Haskell.TH.Lib

	loadStringFromFile :: Q Exp
	loadStringFromFile = do
	let externalDependency = "external.txt"
	qAddDependentFile externalDependency
	s <- qRunIO $ readFile externalDependency
	stringE s
	-- main.hs
	{-# LANGUAGE TemplateHaskell #-}
	module Main where
	import External (loadStringFromFile)

	main :: IO ()
	main = putStrLn $loadStringFromFile