rebound-0.1.0.0: src/Data/LocalName.hs

-- |
-- Module      : Data.LocalName
-- Description : Strings with an "identity" equality
module Data.LocalName where

-- | A simple wrapper for strings
-- All local names are equal so that when they are used as patterns
-- they will be ignored.
newtype LocalName = LocalName {name :: String}

instance Eq LocalName where
  x1 == x2 = True

instance Show LocalName where
  show (LocalName x) = x

-- | A default name.
internalName :: LocalName
internalName = LocalName "_internal"