/
githubmirror
/
pandoc
Обзор
Документация
Войти
/
githubmirror
/
pandoc
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
3.9
test/haddock-reader.native
401 строка
8 KB
John MacFarlane
Switch from pretty-simple to pretty-show for native output.
29 сен 2021, 07:17
29 сен 2021, 07:17
0bdcf41
Код
Авторство
О чём код?
Pandoc Meta { unMeta = fromList [] } [ Para [ Str "This" , Space , Str "file" , Space , Str "tests" , Space , Str "the" , Space , Str "Pandoc" , Space , Str "reader" , Space , Str "for" , Space , Str "Haddock." , SoftBreak , Str "We've" , Space , Str "borrowed" , Space , Str "examples" , Space , Str "from" , Space , Str "Haddock's" , Space , Str "documentation:" , Space , Link ( "" , [] , [] ) [ Str "http://www.haskell.org/haddock/doc/html/ch03s08.html" ] ( "http://www.haskell.org/haddock/doc/html/ch03s08.html" , "http://www.haskell.org/haddock/doc/html/ch03s08.html" ) , Str "." ] , Para [ Str "The" , Space , Str "following" , Space , Str "characters" , Space , Str "have" , Space , Str "special" , Space , Str "meanings" , Space , Str "in" , Space , Str "Haddock," , Space , Str "/," , Space , Str "'," , Space , Str "`," , Space , Str "\"," , Space , Str "@," , Space , Str "<," , Space , Str "so" , Space , Str "they" , Space , Str "must" , Space , Str "be" , Space , Str "escaped." ] , Para [ Str "*" , Space , Str "This" , Space , Str "is" , Space , Str "a" , Space , Str "paragraph," , Space , Str "not" , Space , Str "a" , Space , Str "list" , Space , Str "item." , SoftBreak , Str ">" , Space , Str "This" , Space , Str "sentence" , Space , Str "is" , Space , Str "not" , Space , Str "code." , SoftBreak , Str ">>>" , Space , Str "This" , Space , Str "is" , Space , Str "not" , Space , Str "an" , Space , Str "example." ] , Para [ Str "The" , Space , Str "references" , Space , Str "\955," , Space , Str "\955" , Space , Str "and" , Space , Str "\955" , Space , Str "all" , Space , Str "represent" , Space , Str "the" , Space , Str "lower-case" , Space , Str "letter" , Space , Str "lambda." ] , Para [ Str "This" , Space , Str "is" , Space , Str "a" , Space , Str "code" , Space , Str "block:" ] , CodeBlock ( "" , [] , [] ) "map :: (a -> b) -> [a] -> [b]\nmap _ [] = []\nmap f (x:xs) = f x : map f xs" , Para [ Str "This" , Space , Str "is" , Space , Str "another" , Space , Str "code" , Space , Str "block:" ] , Para [ Code ( "" , [] , [] ) "f x = x + x." , LineBreak , Code ( "" , [] , [] ) "The @...@ code block " , Emph [ Code ( "" , [] , [] ) "interprets markup normally" ] , Code ( "" , [] , [] ) "." , Code ( "" , [ "haskell" , "module" ] , [] ) "Module.Foo" , Code ( "" , [] , [] ) "" , LineBreak , Code ( "" , [] , [] ) "\"Hello World\"" ] , Para [ Str "Haddock" , Space , Str "supports" , Space , Str "REPL" , Space , Str "examples:" ] , Para [ Code ( "" , [ "prompt" ] , [] ) ">>>" , Space , Code ( "" , [ "haskell" , "expr" ] , [] ) "fib 10" , LineBreak , Code ( "" , [ "result" ] , [] ) "55" ] , Para [ Code ( "" , [ "prompt" ] , [] ) ">>>" , Space , Code ( "" , [ "haskell" , "expr" ] , [] ) "putStrLn \"foo\\nbar\"" , LineBreak , Code ( "" , [ "result" ] , [] ) "foo" , LineBreak , Code ( "" , [ "result" ] , [] ) "bar" ] , Para [ Str "That" , Space , Str "was" , Space , Emph [ Str "really" , Space , Str "cool" ] , Str "!" , SoftBreak , Str "I" , Space , Str "had" , Space , Str "no" , Space , Str "idea" , Space , Code ( "" , [] , [] ) "fib 10 = 55" , Str "." ] , Para [ Str "This" , Space , Str "module" , Space , Str "defines" , Space , Str "the" , Space , Str "type" , Space , Code ( "" , [ "haskell" , "identifier" ] , [] ) "T" , Str "." , SoftBreak , Str "The" , Space , Str "identifier" , Space , Code ( "" , [ "haskell" , "identifier" ] , [] ) "M.T" , Space , Str "is" , Space , Str "not" , Space , Str "in" , Space , Str "scope" , SoftBreak , Str "I" , Space , Str "don't" , Space , Str "have" , Space , Str "to" , Space , Str "escape" , Space , Str "my" , Space , Str "apostrophes;" , Space , Str "great," , Space , Str "isn't" , Space , Str "it?" , SoftBreak , Str "This" , Space , Str "is" , Space , Str "a" , Space , Str "reference" , Space , Str "to" , Space , Str "the" , Space , Code ( "" , [ "haskell" , "module" ] , [] ) "Foo" , Space , Str "module." ] , Para [ Str "This" , Space , Str "is" , Space , Str "a" , Space , Str "bulleted" , Space , Str "list:" ] , BulletList [ [ Para [ Str "first" , Space , Str "item" ] ] , [ Para [ Str "second" , Space , Str "item" ] ] ] , Para [ Str "This" , Space , Str "is" , Space , Str "an" , Space , Str "enumerated" , Space , Str "list:" ] , OrderedList ( 1 , DefaultStyle , DefaultDelim ) [ [ Para [ Str "first" , Space , Str "item" ] ] , [ Para [ Str "second" , Space , Str "item" ] ] ] , Para [ Str "This" , Space , Str "is" , Space , Str "a" , Space , Str "definition" , Space , Str "list:" ] , DefinitionList [ ( [ Code ( "" , [] , [] ) "foo" ] , [ [ Para [ Str "The" , Space , Str "description" , Space , Str "of" , Space , Code ( "" , [] , [] ) "foo" , Str "." ] ] ] ) , ( [ Code ( "" , [] , [] ) "bar" ] , [ [ Para [ Str "The" , Space , Str "description" , Space , Str "of" , Space , Code ( "" , [] , [] ) "bar" , Str "." ] ] ] ) ] , Para [ Str "Here" , Space , Str "is" , Space , Str "a" , Space , Str "link:" , Space , Link ( "" , [] , [] ) [ Str "http://haskell.org" ] ( "http://haskell.org" , "http://haskell.org" ) ] , Para [ Link ( "" , [] , [] ) [ Str "Haskell" ] ( "http://haskell.org" , "http://haskell.org" ) , Space , Str "is" , Space , Str "a" , Space , Str "fun" , Space , Str "language!" ] , Para [ Link ( "" , [] , [] ) [ Str "Click" , Space , Str "Here!" ] ( "http://example.com" , "http://example.com" ) ] ]