github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 20:31:55 +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

11
src/Semantic/Util.hs
View File

@ -55,13 +55,8 @@ justEvaluating
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
( 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