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

eval can use Numeric

Browse Source
This commit is contained in:
Ayman Nadeem 2018-12-14 11:23:49 -05:00
parent cf4afae2a3
commit b24c5d5ebb
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Abstract/Evaluatable.hs
View File

@ -52,6 +52,7 @@ class (Show1 constr, Foldable constr) => Evaluatable constr where
, Member Fresh sig , Member Fresh sig
, Member (Function term address value) sig , Member (Function term address value) sig
, Member (Modules address value) sig , Member (Modules address value) sig
, Member (Numeric value) sig
, Member (Reader ModuleInfo) sig , Member (Reader ModuleInfo) sig
, Member (Reader PackageInfo) sig , Member (Reader PackageInfo) sig
, Member (Reader Span) sig , Member (Reader Span) sig

1
src/Semantic/Analysis.hs
View File

@ -139,6 +139,7 @@ evalTerm :: ( Carrier sig m
, Member (Error (Return value)) sig , Member (Error (Return value)) sig
, Member (Function term address value) sig , Member (Function term address value) sig
, Member (Modules address value) sig , Member (Modules address value) sig
, Member (Numeric value) sig
, Member (Reader ModuleInfo) sig , Member (Reader ModuleInfo) sig
, Member (Reader PackageInfo) sig , Member (Reader PackageInfo) sig
, Member (Reader Span) sig , Member (Reader Span) sig