Question

我最接近的是使用reifyModule和thisModule，但这不起作用。

{-# LANGUAGE TemplateHaskell #-}
import Language.Haskell.TH
import Language.Haskell.TH.Syntax

main = putStrLn $(LitE . StringL . show <$> thisModule)

（不出所料）无论文件名如何都会返回Module (PkgName "main") (ModName "Main")。

Answer 1

您可以使用location获取它。

{-# LANGUAGE TemplateHaskell #-}
import Language.Haskell.TH
import Language.Haskell.TH.Syntax

main = putStrLn $(LitE . StringL . loc_filename <$> location)

是否可以使用模板haskell来获取当前文件的名称？

1 个答案: