, (parseWiki "* a"
~?=
- (Right [ List (ListElement Bullet [[Right (Text "a")]]) ]))
+ (Right [ List Bullet [[Inline (Text "a")]] ]))
, (parseWiki "* a*"
~?=
- (Right [ List (ListElement Bullet [[Right (Text "a*")]]) ]))
+ (Right [ List Bullet [[Inline (Text "a*")]] ]))
, (parseWiki "* a\n* b\n"
~?=
- (Right [ List (ListElement Bullet [ [Right (Text "a")]
- , [Right (Text "b")]
- ])
+ (Right [ List Bullet [ [Inline (Text "a")]
+ , [Inline (Text "b")]
+ ]
]))
, (parseWiki "*a\n*#b\n*#c\n"
~?=
- (Right [ List (ListElement Bullet [ [ Right (Text "a")
- , Left (ListElement Numbered [ [Right (Text "b")]
- , [Right (Text "c")]
- ])
- ]
- ])
+ (Right [ List Bullet [ [ Inline (Text "a")
+ , Block (List Numbered [ [Inline (Text "b")]
+ , [Inline (Text "c")]
+ ])
+ ]
+ ]
]))
, (parseWiki "*a\n#b"
~?=
- (Right [ List (ListElement Bullet [ [Right (Text "a")] ])
- , List (ListElement Numbered [ [Right (Text "b")] ])
+ (Right [ List Bullet [ [Inline (Text "a")] ]
+ , List Numbered [ [Inline (Text "b")] ]
]))
, (parseWiki "*a<!-- comment -->"
~?=
- (Right [ List (ListElement Bullet [ [Right (Text "a")] ]) ]))
+ (Right [ List Bullet [ [Inline (Text "a")] ] ]))
, (parseWiki "*a<!-- comment -->\n*b"
~?=
- (Right [ List (ListElement Bullet [ [Right (Text "a")]
- , [Right (Text "b")]
- ])
+ (Right [ List Bullet [ [Inline (Text "a")]
+ , [Inline (Text "b")]
+ ]
]))
, (parseWiki "foo:bar"