github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Define binary subtraction syntax.

Browse Source
This commit is contained in:
Rob Rix 2017-05-03 11:26:53 -04:00
parent b4face5176
commit b8bd18e742
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data/Syntax/Expression.hs
View File

@ -27,3 +27,10 @@ data Plus a = Plus a a
instance Eq1 Plus where liftEq = genericLiftEq instance Eq1 Plus where liftEq = genericLiftEq
instance Show1 Plus where liftShowsPrec = genericLiftShowsPrec instance Show1 Plus where liftShowsPrec = genericLiftShowsPrec
-- | Binary subtraction.
data Minus a = Minus a a
deriving (Eq, Foldable, Functor, Generic1, Show, Traversable)
instance Eq1 Minus where liftEq = genericLiftEq
instance Show1 Minus where liftShowsPrec = genericLiftShowsPrec