module Data.Geo.OSM.Tracepoints(
Tracepoints,
tracepoints
) where
import Text.XML.HXT.Arrow
import Text.XML.HXT.Extras
import Data.Geo.OSM.Accessor.PerPage
newtype Tracepoints = Tracepoints String
deriving Eq
tracepoints :: String
-> Tracepoints
tracepoints = Tracepoints
instance XmlPickler Tracepoints where
xpickle = xpElem "tracepoints" (xpWrap (tracepoints, \(Tracepoints r) -> r) (xpAttr "per_page" xpText))
instance Show Tracepoints where
show = showPickled []
instance PerPage Tracepoints where
perPage (Tracepoints x) = x
setPerPage a (Tracepoints _) = tracepoints a