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

Use the ModuleEffects synonym in UtilEff.

Browse Source
This commit is contained in:
Rob Rix 2018-08-15 11:47:43 -04:00
parent 6e71a76402
commit bb021d404a
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Semantic/Util.hs
View File

@ -54,14 +54,9 @@ justEvaluating
. runValueError
newtype UtilEff address rest a = UtilEff
{ runUtilEff :: Eff ( ValueEffects address (Value address (UtilEff address rest))
( Exc (LoopControl address)
': Exc (Return address)
': Env address
': Deref (Value address (UtilEff address rest))
': Allocator address
': Reader ModuleInfo
': Modules address
{ runUtilEff :: Eff ( ValueEffects address (Value address (UtilEff address rest))
( ModuleEffects address (Value address (UtilEff address rest))
( Modules address
': Reader (ModuleTable (NonEmpty (Module (ModuleResult address))))
': Reader Span
': Reader PackageInfo
@ -75,7 +70,7 @@ newtype UtilEff address rest a = UtilEff
': Fresh
': State (Heap address (Value address (UtilEff address rest)))
': rest
)) a
))) a
}
checking