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

-- -- | Values with a @public@ boolean accessor.
module Data.Geo.OSM.Accessor.Public where

import Data.Geo.OSM.Accessor.Accessor

class Public a where
  public :: a -> Bool
  setPublic :: Bool -> a -> a

  usingPublic :: (Bool -> Bool) -> a -> a
  usingPublic = public `using` setPublic