github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00
Code Issues Projects Releases Wiki Activity

Add a typeclass for fields.

Browse Source
This commit is contained in:
Rob Rix 2016-06-16 17:02:17 -04:00
parent b18a30b441
commit 2822ec2f51
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Record.hs
View File

@ -40,6 +40,9 @@ type family ValueOf field
class HasField (fields :: [*]) (field :: *) where
getField :: Record fields -> field
class IsField field where
getValue :: field -> ValueOf field
-- Instances