diff options
Diffstat (limited to 'test/lhs-test-markdown.native')
-rw-r--r-- | test/lhs-test-markdown.native | 244 |
1 files changed, 119 insertions, 125 deletions
diff --git a/test/lhs-test-markdown.native b/test/lhs-test-markdown.native index db2acd318..42a32697b 100644 --- a/test/lhs-test-markdown.native +++ b/test/lhs-test-markdown.native @@ -1,130 +1,124 @@ -[ Header 1 - ( "lhs-test", [], [] ) - [ Str "lhs", Space, Str "test" ] +[ 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:" - ] + [ 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)" + ( "" , [ "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)." - ] + [ 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" ] ] + ( "" , [] , [] ) "f *** g = first f >>> second g" +, Para [ Str "Block" , Space , Str "quote:" ] +, BlockQuote [ Para [ Str "foo" , Space , Str "bar" ] ] ] |