From 676b5b5105d369f40f5229f8889f654c7f0f1e5e Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 24 Oct 2018 15:16:30 -0400 Subject: [PATCH] :fire: some redundant parens. --- src/Control/Abstract/ScopeGraph.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Control/Abstract/ScopeGraph.hs b/src/Control/Abstract/ScopeGraph.hs index d4b52ce65..966fba0e6 100644 --- a/src/Control/Abstract/ScopeGraph.hs +++ b/src/Control/Abstract/ScopeGraph.hs @@ -98,7 +98,7 @@ newtype ScopeEnvC m a = ScopeEnvC { runScopeEnvC :: m a } instance (Ord address, Member Fresh sig, Member (Allocator address) sig, Carrier (State (ScopeGraph address) :+: sig) m, Effect sig) => Carrier (ScopeEnv address :+: sig) (ScopeEnvC (Eff m)) where ret = ScopeEnvC . ret - eff = ScopeEnvC . (alg \/ (eff . R . handlePure runScopeEnvC)) + eff = ScopeEnvC . (alg \/ eff . R . handlePure runScopeEnvC) where alg (Lookup ref k) = gets (ScopeGraph.scopeOfRef ref) >>= runScopeEnvC . k alg (Declare decl span scope k) = modify @(ScopeGraph address) (ScopeGraph.declare decl span scope) *> runScopeEnvC k alg (PutDeclarationScope decl scope k) = modify @(ScopeGraph address) (ScopeGraph.insertDeclarationScope decl scope) *> runScopeEnvC k