OSM-0.4.1: Data/Geo/OSM/Accessor/Zoom.hs

-- | Values with a @zoom@ string accessor.
module Data.Geo.OSM.Accessor.Zoom where

import Data.Geo.OSM.Accessor.Accessor

class Zoom a where
  zoom :: a -> String
  setZoom :: String -> a -> a

  usingZoom :: (String -> String) -> a -> a
  usingZoom = zoom  `using` setZoom