github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

Move a Monad constraint around.

Browse Source
This commit is contained in:
Rob Rix 2018-03-23 20:40:51 -04:00
parent 0b0bf455d4
commit 2f3cd99d7e
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Control/Abstract/Analysis.hs
View File

@ -63,7 +63,6 @@ evaluateTerm = foldSubterms (analyzeTerm eval)
type MonadEvaluatable term value m =
( Evaluatable (Base term)
, FreeVariables term
, Monad m
, MonadAddressable (LocationFor value) value m
, MonadAnalysis term value m
, MonadThrow Prelude.String value m

3
src/Data/Abstract/Value.hs
View File

@ -153,8 +153,7 @@ instance ValueRoots Value where
-- | Construct a 'Value' wrapping the value arguments (if any).
instance MonadEvaluatable term Value m => MonadValue Value m where
instance (Monad m, MonadEvaluatable term Value m) => MonadValue Value m where
unit = pure . injValue $ Unit
integer = pure . injValue . Data.Abstract.Value.Integer . Number.Integer
boolean = pure . injValue . Boolean