diff options
| author | Bryan O'Sullivan <bos@serpentine.com> | 2014-12-08 22:26:09 -0800 |
|---|---|---|
| committer | Bryan O'Sullivan <bos@serpentine.com> | 2014-12-08 22:26:09 -0800 |
| commit | 33fdb6bc1550de7cf1d5fa6735bb22adcbc0a7e9 (patch) | |
| tree | e4a057aefcfa6650360208978bc2683f84864c98 /tests/docbook-reader.native | |
| parent | 48e2586ec80dd883d83cd57bffcad9c97c1e7599 (diff) | |
DocBook reader: add support for calloutlist and callout
We treat a calloutlist as a bulleted list. This works well in practice.
Diffstat (limited to 'tests/docbook-reader.native')
| -rw-r--r-- | tests/docbook-reader.native | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/docbook-reader.native b/tests/docbook-reader.native index 90d76b3c2..7edc15570 100644 --- a/tests/docbook-reader.native +++ b/tests/docbook-reader.native @@ -134,6 +134,12 @@ Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "John",Spa ,Para [Str "Should",Space,Str "not",Space,Str "be",Space,Str "a",Space,Str "list",Space,Str "item:"] ,Para [Str "M.A.\160\&2007"] ,Para [Str "B.",Space,Str "Williams"] +,Header 2 ("",[],[]) [Str "Callout"] +,Para [Str "Simple."] +,BulletList + [[Para [Str "A",Space,Code ("",[],[]) "__letrec",Space,Str "is",Space,Str "equivalent",Space,Str "to",Space,Str "a",Space,Str "normal",Space,Str "Haskell",Space,Str "LET."]] + ,[Para [Str "GHC",Space,Str "compiled",Space,Str "the",Space,Str "body",Space,Str "of",Space,Str "our",Space,Str "list",Space,Str "comprehension",Space,Str "into",Space,Str "a",Space,Str "loop",Space,Str "named",Space,Code ("",[],[]) "go_s1YC",Str "."]] + ,[Para [Str "If",Space,Str "our",Space,Str "CASE",Space,Str "expression",Space,Str "matches",Space,Str "the",Space,Str "empty",Space,Str "list,",Space,Str "we",Space,Str "return",Space,Str "the",Space,Str "empty",Space,Str "list.",Space,Str "This",Space,Str "is",Space,Str "reassuringly",Space,Str "familiar."]]] ,Header 1 ("",[],[]) [Str "Definition",Space,Str "Lists"] ,DefinitionList [([Str "apple"], |