pandocにメタデータを追加するフィルタ

Question

私はいくつかの新しいメタデータをpandocに追加するフィルタを作成しようとしています。

これは、これまでの私のコードです：

#!/usr/bin/runhaskell 

import Data.Map 
import Text.Pandoc 
import Text.Pandoc.JSON 
import Text.Pandoc.Walk 

addName :: Meta -> Meta 
addName m = Meta $ insert "Name" (MetaString "My Name") (unMeta m) 

main :: IO() 
main = toJSONFilter addName 

私は次のエラーを取得する：それは正しく構築するよう

add-meta.hs:12:8: error: 
    • No instance for (Walkable Meta Pandoc) 
     arising from a use of ‘toJSONFilter’ 
    • In the expression: toJSONFilter addName 
     In an equation for ‘main’: main = toJSONFilter addName 
Failed, modules loaded: none. 

は、どのように私はこれを変更することができますか？

Answer 1

私はメッセージのexpanationは、コンパイラが

addName :: Meta -> Meta 

はa -> aの一例であり、唯一の使用可能なインスタンスは、このように

aため Meta、それを置く

instance Walkable a Pandoc => ToJSONFilter (a -> a) 

であることをことを見ることができるということだと思います前もってinstance Walkable Meta Pandocをどこかに見つける必要がありますが、そうではありません。

解決策は十分です：我々はWalkable Pandoc Pandocを持っていますので、代わりにPandoc -> Pandocの変換を行うことができます。これは、とにかくtoJSONFilterの最も直感的な入力です。

addName :: Pandoc -> Pandoc 
addName (Pandoc m ls) = Pandoc m' ls where 
    m' = Meta (insert "Name" (MetaString "My Name") (unMeta m)) 

main :: IO() 
main = toJSONFilter addName