github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Define a helper to extract the User name from a Named value.

Browse Source
This commit is contained in:
Rob Rix 2019-07-02 12:07:28 -04:00
parent 906eba62f0
commit daa280c300
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
semantic-core/src/Data/Name.hs
View File

@ -4,6 +4,7 @@ module Data.Name
, Namespaced
, Name(..)
, Named(..)
, namedName
, reservedNames
, isSimpleCharacter
, needsQuotation
@ -73,6 +74,9 @@ data Named a = Named User a
instance Eq a => Eq (Named a) where (==) = (==) `on` namedValue
instance Ord a => Ord (Named a) where compare = compare `on` namedValue
namedName :: Named a -> User
namedName (Named n _) = n
namedValue :: Named a -> a
namedValue (Named _ a) = a