Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {-# 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 []
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement