Skip to content
Browse files

fixed another space leak

  • Loading branch information...
1 parent af3a45a commit 51fc287283599150a9dacc8cccdb1134b633a243 @skogsbaer committed Jan 24, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Text/XML/Generator.hs
View
2 src/Text/XML/Generator.hs
@@ -208,7 +208,7 @@ xattrQRaw' ns' key valueBuilder = Xml $
colonBuilder = fromString ":"
xattrs :: [Xml Attr] -> Xml Attr
-xattrs = foldl mappend noAttrs
+xattrs = foldr mappend noAttrs
noAttrs :: Xml Attr
noAttrs = xempty

0 comments on commit 51fc287

Please sign in to comment.
Something went wrong with that request. Please try again.