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

class User a where
  user :: a -> Maybe String