--- >>> let h1 = Hyphen '-'
--- >>> let h2 = Hyphen '-'
--- >>> h1 == h2
--- True
---
--- If you do something stupid, that's your fault:
---
--- >>> let h1 = Hyphen '-'
--- >>> let h2 = Hyphen 'x'
--- >>> h1 == h2
--- True
---
-instance Eq Hyphen where _ == _ = True
-
-
--- | 'Show' is defined semantically; all hyphens display as \'-\'.
--- The implementation is based on what GHC derives, discovered via
--- @ghci -ddump-deriv@.
---
--- ==== _Examples_
---
--- >>> let h = Hyphen '-'
--- >>> h
--- Hyphen '-'
---
--- If you do something stupid, that's your fault:
---
--- >>> let h = Hyphen 'x'
--- >>> h
--- Hyphen '-'
---
-instance Show Hyphen where
- showsPrec d _ =
- showParen (d > application_precedence) (showString "Hyphen '-'")
- where
- application_precedence = 10
-
-
--- | 'Pretty' is defined semantically; all hyphens display as \'-\'.
---
--- ==== _Examples_
---
--- >>> let h = Hyphen '-'
--- >>> pretty_print h
--- -
---
--- If you do something stupid, that's your fault:
---
--- >>> let h = Hyphen 'x'