-- | Values with a @origin@ optional string accessor.
module Data.Geo.OSM.Accessor.Origin where

import Data.Geo.OSM.Accessor.Accessor

class Origin a where
  origin :: a -> Maybe String
  setOrigin :: Maybe String -> a -> a

  setOrigin' :: String -> a -> a
  setOrigin' = setOrigin . return

  usingOrigin :: (Maybe String -> Maybe String) -> a -> a
  usingOrigin = origin `using` setOrigin

  usingOrigin' :: (String -> String) -> a -> a
  usingOrigin' = usingOrigin . fmap