Commit 030b1a3a4b065d0aa750ea43238ccd1a95aa1f39

Peter Simons (Committer)
Wed Jul 16 20:46:15 CEST 2008
Marty Pauley <marty @ka…i.com> (Author)
Wed Jul 16 20:46:15 CEST 2008

Tree SHA1: d313798
Parent SHA1: 757cdf0 (Updated cabal build.)
raw diff | raw patch

Rfc2822: fixed bug concerning unstructured text that ends with whitespace

This patch fixes a bug when parsing unstructured text that ends with a
whitespace. The problem occurred because the trailing whitespace was
causing the optional "fws" to match inside the "do" in the "many" so it
was then expecting a "utext".

Diff rendering mode:
inline
side by side


1	1	Parsers for the Internet Message Standard
2	2	=========================================
3	3
4		:Latest Release: hsemail-1.2.tar.gz_
	4	:Latest Release: hsemail-1.3.tar.gz_
5	5	:Darcs: darcs_ get --partial http://cryp.to/hsemail/
6	6
7	7	Synopsis
…	…
44	44
45	45	.. _darcs: http://abridgegame.org/darcs/
46	46
47		.. _hsemail-1.2.tar.gz: http://cryp.to/hsemail/hsemail-1.2.tar.gz
	47	.. _hsemail-1.3.tar.gz: http://cryp.to/hsemail/hsemail-1.3.tar.gz
48	48
49	49	.. _Reference Documentation: docs/index.html
50	50


213	213	-- follows the actual 'utext' is /included/ in the returned string.
214	214
215	215	unstructured :: CharParser a String
216		unstructured = do r1 <- many (do r1 <- option [] fws
217		r2 <- utext
218		return (r1 ++ [r2]))
219		r2 <- option [] fws
220		return (concat r1 ++ r2)
	216	unstructured = do r1 <- option [] fws
	217	r2 <- many (do r1 <- utext
	218	r2 <- option [] fws
	219	return (r1 : r2))
	220	return (r1 ++ concat r2)
221	221	<?> "unstructured text"
222	222
223	223


1	1	Name: hsemail
2		Version: 1.2
	2	Version: 1.3
3	3	Author: Peter Simons <simons@cryp.to>
4	4	License: BSD3
5	5	License-file: LICENSE

Commit 030b1a3a4b065d0aa750ea43238ccd1a95aa1f39

Gitorious