module Data.Geo.OSM.Preferences(
Preferences,
preferences
) where
import Text.XML.HXT.Arrow.Pickle
import Text.XML.HXT.Extras
import Data.Geo.OSM.Tag
import Data.Geo.OSM.Accessor.Tags
newtype Preferences = Preferences [Tag]
deriving Eq
preferences :: [Tag]
-> Preferences
preferences = Preferences
instance XmlPickler Preferences where
xpickle = xpElem "preferences" (xpWrap (preferences, \(Preferences r) -> r) (xpList xpickle))
instance Show Preferences where
show = showPickled []
instance Tags Preferences where
tags (Preferences x) = x
setTags a (Preferences _) = preferences a