Role can be empty.

tonymorris · Apr 5, 2012 · 0255cd0 · 0255cd0
1 parent 3bb4994
commit 0255cd0
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 =