haskell - 如何在haskell中获取变量名

Question

我来到 haskell 有一些 c 背景知识，想知道有没有类似的

#define print( a ) printf( "%s = %d\n", #a, a )

int a = 5;
print( a );

那应该打印

a = 5

?

Answer 1

这是提到的TH解决方案augustss:

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

pr :: Name -> ExpQ
pr n = [| putStrLn ( $(lift (nameBase n ++ " = ")) ++ show $(varE n) ) |]

然后在另一个模块中:

{-# LANGUAGE TemplateHaskell #-}
import Pr
a = "hello"
main = $(pr 'a)