github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-01 19:55:34 +03:00
Code Issues Projects Releases Wiki Activity

📝 HasField.

Browse Source
This commit is contained in:
Rob Rix 2016-06-16 11:53:21 -04:00
parent c4eb6241cb
commit fd22620ccd
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Record.hs
View File

@ -24,6 +24,7 @@ field = Tagged
-- Classes -- Classes
-- | HasField enables indexing a Record by (phantom) type tags.
class HasField (fields :: [*]) (field :: *) where class HasField (fields :: [*]) (field :: *) where
getField :: Record fields -> field getField :: Record fields -> field