pandoc/test/lhs-test.native

[ 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" ] ]
]