Merge pull request #2 from fryguybob/master

Role can be empty
tonymorris · Apr 6, 2012 · 8893306 · 8893306
2 parents 3bb4994 + 0255cd0
commit 8893306
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/Geo/OSM/Member.hs b/src/Data/Geo/OSM/Member.hs
@@ -21,7 +21,7 @@ data Member =
 instance XmlPickler Member where
   xpickle =
     xpElem "member" (xpWrap (\(mtype', mref', mrole') -> member mtype' mref' mrole', \(Member mtype' mref' mrole') -> (mtype', mref', mrole'))
-                    (xpTriple xpickle (xpAttr "ref" xpText) (xpAttr "role" xpText)))
+                    (xpTriple xpickle (xpAttr "ref" xpText) (xpAttr "role" xpText0)))
 
 instance Show Member where
   show =