Question

在以下代码段中，foo的第一个参数SNat @n是手动组装的：

[e|foo $(appTypeE (conE 'SNat) n')|]
  where
    n' = litT . numTyLit . fromIntegral $ n

是否有具体的TH准引用语法？即我想写一些类似的东西

[e|foo (SNat @$n')|]

但这似乎被解析为好像我正在使用中缀运算符($@)：

> runQ [e|foo (SNat @$n')|]
AppE (VarE foo) (InfixE (Just (ConE SNat)) (UnboundVarE @$) (Just (VarE n')))

有趣的是，[e| |]准引用确实支持非准可见类型应用程序的具体语法：

> runQ [e|foo (SNat @5)|]
AppE (VarE foo) (AppTypeE (ConE SNat) (LitT (NumTyLit 5)))

Answer 1

肢体感觉

let n  = 5
    n' = litT $ numTyLit $ fromIntegral n
in  runQ [e| foo (SNat @($n')) |]
-- ==>
AppE (UnboundVarE foo) (AppTypeE (UnboundVarE SNat) (LitT (NumTyLit 5)))

一个空格也可以，但是我不会用：

[e| foo (SNat @ $n') |]

可见类型应用程序的准报价程序具体语法

1 个答案: