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

Define a MonadOrigin instance for Evaluating.

Browse Source
This commit is contained in:
Rob Rix 2018-03-29 23:28:32 -04:00
parent a0667d0414
commit 424cac7ab2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Analysis/Abstract/Evaluating.hs
View File

@ -14,6 +14,7 @@ import Data.Abstract.Exports
import Data.Abstract.Heap
import Data.Abstract.Module
import Data.Abstract.ModuleTable
import Data.Abstract.Origin
import qualified Data.IntMap as IntMap
import Lens.Micro
import Prelude hiding (fail)
@ -37,6 +38,7 @@ type EvaluatingEffects location term value
, Fail -- Failure with an error message
, Fresh -- For allocating new addresses and/or type variables.
, Reader [Module term] -- The stack of currently-evaluating modules.
, Reader Origin -- The current term’s origin.
, Reader (ModuleTable [Module term]) -- Cache of unevaluated modules
, Reader (Environment location value) -- Default environment used as a fallback in lookupEnv
, State (EvaluatingState location term value) -- Environment, heap, modules, exports, and jumps.
@ -139,6 +141,10 @@ instance Members (EvaluatingEffects location term value) effects
askModuleStack = raise ask
instance Member (Reader Origin) effects
=> MonadOrigin (Evaluating location term value effects) where
askOrigin = raise ask
instance ( Members (EvaluatingEffects location term value) effects
, MonadValue location value (Evaluating location term value effects)
)