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

Relax eval constaints for more choice in control flow

Browse Source
This commit is contained in:
Timothy Clem 2017-11-29 13:55:46 -08:00
parent 355ec2aa5e
commit e336e8735e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Abstract/Eval.hs
View File

@ -23,8 +23,8 @@ import Prelude hiding (fail)
-- Collecting evaluator
class Monad m => Eval term v m constr where
eval :: ((v -> m v) -> term -> m v) -> (v -> m w) -> constr term -> m w
default eval :: (MonadFail m, Show1 constr) => ((v -> m v) -> term -> m v) -> (v -> m w) -> constr term -> m w
eval :: ((v -> m v) -> term -> m v) -> ((v -> m v) -> constr term -> m v)
default eval :: (MonadFail m, Show1 constr) => ((v -> m v) -> term -> m v) -> ((v -> m v) -> constr term -> m v)
eval _ _ expr = fail $ "Eval unspecialized for " ++ liftShowsPrec (const (const id)) (const id) 0 expr ""
instance (Monad m, Apply (Eval t v m) fs) => Eval t v m (Union fs) where