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 newtype UtilEff address rest a = UtilEff
{ runUtilEff :: Eff ( ValueEffects address (Value address (UtilEff address rest)) { runUtilEff :: Eff ( ValueEffects address (Value address (UtilEff address rest))
( Exc (LoopControl address) ( ModuleEffects address (Value address (UtilEff address rest))
': Exc (Return address) ( Modules address
': Env address
': Deref (Value address (UtilEff address rest))
': Allocator address
': Reader ModuleInfo
': Modules address
': Reader (ModuleTable (NonEmpty (Module (ModuleResult address)))) ': Reader (ModuleTable (NonEmpty (Module (ModuleResult address))))
': Reader Span ': Reader Span
': Reader PackageInfo ': Reader PackageInfo
@ -75,7 +70,7 @@ newtype UtilEff address rest a = UtilEff
': Fresh ': Fresh
': State (Heap address (Value address (UtilEff address rest))) ': State (Heap address (Value address (UtilEff address rest)))
': rest ': rest
)) a ))) a
} }
checking checking