github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 10:27:45 +03:00
Code Issues Projects Releases Wiki Activity

📝

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

4
src/Data/Record.hs
View File

@ -6,8 +6,12 @@ import Prologue
infix 9 :=> infix 9 :=>
-- | A phantom type tag constructor.
type a :=> b = Tagged a b type a :=> b = Tagged a b
-- | Smart constructor for type-tagged data fields.
-- |
-- | This has type a :=> b. When you require a to be some concrete type (and you usually will), it should be provided by context, whether using ascription, a type signature for the binding, `asTypeOf`, or some other way to allow the specific type to be inferred.
field :: b -> a :=> b field :: b -> a :=> b
field = Tagged field = Tagged