github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 21:31:48 +03:00
Code Issues Projects Releases Wiki Activity

IsField specifies a setter.

Browse Source
This commit is contained in:
Rob Rix 2016-06-16 17:34:36 -04:00
parent 856e3ed809
commit 047cc81f4f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Record.hs
View File

@ -42,6 +42,7 @@ class HasField (fields :: [*]) (field :: *) where
class IsField field where class IsField field where
getValue :: field -> ValueOf field getValue :: field -> ValueOf field
setValue :: ValueOf field -> field
-- Instances -- Instances
@ -66,3 +67,4 @@ type instance ValueOf ((:=>) tag value) = value
instance IsField (tag :=> value) where instance IsField (tag :=> value) where
getValue = unField getValue = unField
setValue = field