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

Align the comments.

Browse Source
This commit is contained in:
Rob Rix 2018-03-14 13:11:26 -04:00
parent 418f7536c4
commit 00549ae24b
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,14 +73,13 @@ deriving instance Member NonDetEff effects => MonadNonDet (Evaluating term value
-- | Effects necessary for evaluating (whether concrete or abstract). -- | Effects necessary for evaluating (whether concrete or abstract).
type EvaluatingEffects term value (effects :: [* -> *]) type EvaluatingEffects term value (effects :: [* -> *])
= '[ Fail -- Failure with an error message = '[ Fail -- Failure with an error message
, Reader (EnvironmentFor value) -- Local environment (e.g. binding over a closure) , Reader (EnvironmentFor value) -- Local environment (e.g. binding over a closure)
, State (EnvironmentFor value) -- Global (imperative) environment , State (EnvironmentFor value) -- Global (imperative) environment
, State (StoreFor value) -- The heap , State (StoreFor value) -- The heap
, Reader (ModuleTable term) -- Cache of unevaluated modules , Reader (ModuleTable term) -- Cache of unevaluated modules
, State (ModuleTable (EnvironmentFor value)) -- Cache of evaluated modules , State (ModuleTable (EnvironmentFor value)) -- Cache of evaluated modules
, State (Map Name (Name, Maybe (Address (LocationFor value) value))) -- Set of exports
, State (Map Name (Name, Maybe (Address (LocationFor value) value))) -- Set of exports
] ]
instance Members '[State (Map Name (Name, Maybe (Address (LocationFor value) value))), Reader (EnvironmentFor value), State (EnvironmentFor value)] effects => MonadEnvironment value (Evaluating term value effects) where instance Members '[State (Map Name (Name, Maybe (Address (LocationFor value) value))), Reader (EnvironmentFor value), State (EnvironmentFor value)] effects => MonadEnvironment value (Evaluating term value effects) where