module Data.Geo.OSM.Waynodes(
Waynodes,
waynodes
) where
import Text.XML.HXT.Arrow
import Text.XML.HXT.Extras
import Data.Geo.OSM.Accessor.Maximum
newtype Waynodes = Waynodes String
deriving Eq
waynodes :: String
-> Waynodes
waynodes = Waynodes
instance XmlPickler Waynodes where
xpickle = xpElem "waynodes" (xpWrap (waynodes, \(Waynodes r) -> r) (xpAttr "maximum" xpText))
instance Show Waynodes where
show = showPickled []
instance Maximum Waynodes where
maximum (Waynodes x) = x
setMaximum a (Waynodes _) = waynodes a