From 82c50ed96d7d6b27b39f37df780bdf35e49382db Mon Sep 17 00:00:00 2001 From: joshvera Date: Thu, 1 Nov 2018 22:32:46 -0400 Subject: [PATCH] remove pureeffect --- src/Control/Abstract/ScopeGraph.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Control/Abstract/ScopeGraph.hs b/src/Control/Abstract/ScopeGraph.hs index ec903cc81..fea8233d1 100644 --- a/src/Control/Abstract/ScopeGraph.hs +++ b/src/Control/Abstract/ScopeGraph.hs @@ -223,8 +223,6 @@ alloc = send . Alloc data Allocator address (m :: * -> *) return where Alloc :: Name -> Allocator address m address -instance PureEffect (Allocator address) - instance Effect (Allocator address) where handleState c dist (Request (Alloc name) k) = Request (Alloc name) (dist . (<$ c) . k)