1
1
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00

:=> and field are shorthand for Tagged.

This commit is contained in:
Rob Rix 2016-06-16 11:40:43 -04:00
parent d4b63443ab
commit d596c02e74
2 changed files with 4 additions and 3 deletions

View File

@ -61,6 +61,7 @@ library
, QuickCheck >= 2.8.1
, quickcheck-text
, semigroups
, tagged
, text >= 1.2.1.3
, text-icu
, these

View File

@ -1,12 +1,12 @@
{-# LANGUAGE GeneralizedNewtypeDeriving, TypeOperators #-}
module Data.Record where
import Data.Tagged
import Prologue
infix 9 :=>
newtype a :=> b = (:=>) b
deriving (Eq, Show)
type a :=> b = Tagged a b
field :: b -> a :=> b
field = (:=>)
field = Tagged