Permalink
Browse files

Role can be empty.

  • Loading branch information...
1 parent 3bb4994 commit 0255cd099f4b35a620bb8e96ecfa6e92bb905655 @fryguybob fryguybob committed Apr 5, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 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 =

0 comments on commit 0255cd0

Please sign in to comment.