github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00
Code Issues Projects Releases Wiki Activity

Update Eval instance for Empty

Browse Source
This commit is contained in:
Timothy Clem 2017-11-28 11:15:14 -08:00
parent 97e5581436
commit 0d391d8e39
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Syntax.hs
View File

@ -165,9 +165,9 @@ instance Ord1 Empty where liftCompare _ _ _ = EQ
instance Show1 Empty where liftShowsPrec _ _ _ _ = showString "Empty" instance Show1 Empty where liftShowsPrec _ _ _ _ = showString "Empty"
-- TODO: Define Value semantics for Empty -- TODO: Define Value semantics for Empty
instance (Monad m) => Eval l (Value s a l) m s a Empty where instance (Monad m) => Eval l (Value s a l) m s a Empty where
eval _ _ = pure (I PUnit) eval _ yield _ = yield (I PUnit)
instance (Monad m) => Eval l Type m s a Empty where -- instance (Monad m) => Eval l Type m s a Empty where
eval _ _ = pure Unit -- eval _ _ = pure Unit
-- | Syntax representing a parsing or assignment error. -- | Syntax representing a parsing or assignment error.