pandoc/test/lhs-test-markdown.native

125 lines
2 KiB
Text
Raw Normal View History

[ Header
1
( "lhs-test" , [] , [] )
[ Str "lhs" , Space , Str "test" ]
, Para
[ Code ( "" , [] , [] ) "unsplit"
, Space
, Str "is"
, Space
, Str "an"
, Space
, Str "arrow"
, Space
, Str "that"
, Space
, Str "takes"
, Space
, Str "a"
, Space
, Str "pair"
, Space
, Str "of"
, Space
, Str "values"
, Space
, Str "and"
, Space
, Str "combines"
, Space
, Str "them"
, Space
, Str "to"
, SoftBreak
, Str "return"
, Space
, Str "a"
, Space
, Str "single"
, Space
, Str "value:"
]
, CodeBlock
( "" , [ "haskell" , "literate" ] , [] )
"unsplit :: (Arrow a) => (b -> c -> d) -> a (b, c) d\nunsplit = arr . uncurry\n -- arr (\\op (x,y) -> x `op` y)"
, Para
[ Code ( "" , [] , [] ) "(***)"
, Space
, Str "combines"
, Space
, Str "two"
, Space
, Str "arrows"
, Space
, Str "into"
, Space
, Str "a"
, Space
, Str "new"
, Space
, Str "arrow"
, Space
, Str "by"
, Space
, Str "running"
, Space
, Str "the"
, Space
, Str "two"
, Space
, Str "arrows"
, Space
, Str "on"
, Space
, Str "a"
, SoftBreak
, Str "pair"
, Space
, Str "of"
, Space
, Str "values"
, Space
, Str "(one"
, Space
, Str "arrow"
, Space
, Str "on"
, Space
, Str "the"
, Space
, Str "first"
, Space
, Str "item"
, Space
, Str "of"
, Space
, Str "the"
, Space
, Str "pair"
, Space
, Str "and"
, Space
, Str "one"
, Space
, Str "arrow"
, Space
, Str "on"
, Space
, Str "the"
, SoftBreak
, Str "second"
, Space
, Str "item"
, Space
, Str "of"
, Space
, Str "the"
, Space
, Str "pair)."
]
, CodeBlock
( "" , [] , [] ) "f *** g = first f >>> second g"
, Para [ Str "Block" , Space , Str "quote:" ]
, BlockQuote [ Para [ Str "foo" , Space , Str "bar" ] ]
]