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:
parent
d4b63443ab
commit
d596c02e74
@ -61,6 +61,7 @@ library
|
||||
, QuickCheck >= 2.8.1
|
||||
, quickcheck-text
|
||||
, semigroups
|
||||
, tagged
|
||||
, text >= 1.2.1.3
|
||||
, text-icu
|
||||
, these
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user