mirror of
https://github.com/github/semantic.git
synced 2024-12-25 16:02:43 +03:00
📝 Named.
This commit is contained in:
parent
e1158d89bc
commit
48aad70f9f
@ -66,6 +66,7 @@ instance Pretty Name where
|
||||
User n -> pretty n
|
||||
|
||||
|
||||
-- | A newtype around 'User' which doesn’t affect alpha-equivalence. This is ensured by treating all comparisons between 'Named' values as equal.
|
||||
newtype Named = Named User
|
||||
deriving (Show)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user