id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	os	architecture	failure	difficulty	testcase	blockedby	blocking	related
4157	A bug of dropWhileR in Data.Sequence	kazu-yamamoto	igloo	"The document of dropWhileR says: dropWhileR  p xs is equivalent to reverse  (dropWhileL  p (reverse  xs)). 

However,
{{{
reverse $ dropWhileL (==4) $ reverse $ fromList [1,2,3,4]
==> fromList [1,2,3]

dropWhileR (==4) $ fromList [1,2,3,4]
==> fromList [1,2]
}}}
I guess the cause of bug is in breakl.

Original:
{{{
breakl p xs = foldr (\ i _ -> S.splitAt i xs) (xs, empty) (findIndicesL p xs)
}}}
Fixed:
{{{
breakl p xs = foldr (\ i _ -> S.splitAt (i+1) xs) (xs, empty) (findIndicesL p xs)
}}}
"	bug	closed	normal		libraries (other)	6.12.3	fixed			Unknown/Multiple	Unknown/Multiple	None/Unknown