module Data.Geo.OSM.Waynodes
(
Waynodes
, waynodes
) where
import Text.XML.HXT.Arrow.Pickle
import Data.Geo.OSM.Lens.MaximumL
import Data.Lens.Common
import Control.Comonad.Trans.Store
import Control.Newtype
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 MaximumL Waynodes where
maximumL =
Lens $ \(Waynodes maximum) -> store (\maximum -> Waynodes maximum) maximum
instance Newtype Waynodes String where
pack =
Waynodes
unpack (Waynodes x) =
x