THのlocation関数テスト

gistfile1.hs

{-# LANGUAGE TemplateHaskell#-}
module Main where
import Language.Haskell.TH

$( do
  location >>= runIO . (\loc -> do
      putStrLn $ loc_filename loc -- THの書かれたファイル名
      putStrLn $ loc_package loc -- パッケージ名
      putStrLn $ loc_module loc -- モジュール名
      print $ loc_start loc -- ソースコード上のマクロの開始位置（行, 列)
      print $ loc_end loc -- マクロの終了位置（行, 列)
    )
  return []
  )