16 lines
397 B
Plaintext
16 lines
397 B
Plaintext
let toMD = { item = ./item.dhall, roll = ./roll.dhall }
|
|
|
|
let MonsterItem = ../MonsterItem.dhall
|
|
|
|
let Roll = ../Roll.dhall
|
|
|
|
in λ(monsterItem : MonsterItem.Type) →
|
|
let roll =
|
|
merge
|
|
{ None = ""
|
|
, Some = λ(dice : Roll.Type) → " drops if ${toMD.roll dice}"
|
|
}
|
|
monsterItem.dice
|
|
|
|
in "${monsterItem.item.name}${roll}"
|