Custom function Example of EDE

custom_function_example_of?EDE.hs

:set -XOverloadedStrings

-- EDEをつかうため
import Text.EDE
-- カスタムの関数を作るため
import Text.EDE.Filters
-- parseがかぶるのでObjectだけインポート
import Data.Aeson.Types (Object)
-- カスタムの関数を定義を格納するマップ
import qualified Data.HashMap.Strict  as Map
-- EDEはTextベースなので
import Data.Text.Lazy

-- カスタムの関数を定義
let mylib = Map.fromList ["f" @: (\x -> x + 2)]
-- テンプレートを作成
let tmpl = parse "{{1 | f }}" :: Result Template
-- バインドするデータをつくる、ただしここではデータなし
let env = fromPairs [] :: Object
-- レンダリング実行
tmpl >>= \x -> renderWith mylib x env :: Result Text

-- 結果
Success "3"