23Skidoo / HelloWorld.hs

Last active October 30, 2013

-- A simpler alternative to http://www.alfredodinapoli.com/posts/2013-08-17-copy-your-project-resources-at-configure-time.html
-- See http://www.reddit.com/r/haskell/comments/1kjpop/copy_your_project_resources_at_configure_time/
 
module HelloWorld (helloWorld)
       where
 
import Language.Haskell.TH
import Language.Haskell.TH.Syntax (addDependentFile)
import System.FilePath
 
helloWorld :: Q Exp
helloWorld = do
  loc <- location
  let fileName = takeDirectory (loc_filename loc)
                 </> ".." </> "data" </> "test.txt"
  str <- runIO $ do
    -- We assume that the current module is in '<package_root>/src/'
    -- and the data file is in '<package_root>/data'.
    readFile fileName
  addDependentFile fileName
  litE . stringL $ str

{-# LANGUAGE TemplateHaskell #-}
 
module Main
       where
 
import HelloWorld (helloWorld)
 
main :: IO ()
main = putStrLn $(helloWorld)