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,,,,,