From 64cc956ed839c4aedc0a622c9f260066826abedf Mon Sep 17 00:00:00 2001 From: Josh Vera Date: Fri, 31 Jan 2020 13:44:42 -0500 Subject: [PATCH] Remove declareFunction stub --- .../src/Control/Effect/Sketch.hs | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) diff --git a/semantic-scope-graph/src/Control/Effect/Sketch.hs b/semantic-scope-graph/src/Control/Effect/Sketch.hs index 417da3cb4..79c56106e 100644 --- a/semantic-scope-graph/src/Control/Effect/Sketch.hs +++ b/semantic-scope-graph/src/Control/Effect/Sketch.hs @@ -97,21 +97,4 @@ withScope :: Has Sketch sig m -> m a -> m a withScope scope = local (const scope) --- declareFunction :: ( Has (State (ScopeGraph address)) sig m --- , Has (Allocator address) sig m --- , Has (Reader (CurrentScope address)) sig m --- , Has (Reader ModuleInfo) sig m --- , Has Fresh sig m --- , Ord address --- ) --- => Maybe Name --- -> ScopeGraph.AccessControl --- -> Span --- -> ScopeGraph.Kind --- -> Evaluator term address value m (Name, address) --- declareFunction name accessControl span kind = do --- currentScope' <- currentScope --- let lexicalEdges = Map.singleton Lexical [ currentScope' ] --- associatedScope <- newScope lexicalEdges --- name' <- declareMaybeName name Default accessControl span kind (Just associatedScope) --- pure (name', associatedScope) +