Permalink
Browse files

Solve in-order bug

  • Loading branch information...
1 parent 89dc543 commit 0ce24379285de2cb29a29dcedfd814326b9b8201 @snoyberg committed Nov 23, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 Data/Object/Yaml.hs
View
@@ -89,8 +89,8 @@ mergeAssocLists a [] = a
mergeAssocLists [] b = b
mergeAssocLists a ((bk, bv):bs) =
case lookup bk a of
- Nothing -> mergeAssocLists ((bk, bv) : a) bs
- Just _ -> mergeAssocLists a bs
+ Nothing -> (bk, bv) : mergeAssocLists a bs
+ Just av -> (bk, av) : mergeAssocLists (filter (\(x, _) -> x /= bk) a) bs
toYamlObject :: IsYamlScalar k
=> IsYamlScalar v

0 comments on commit 0ce2437

Please sign in to comment.