github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-23 16:37:50 +03:00
Code Issues Projects Releases Wiki Activity

Remove declareFunction stub

Browse Source
This commit is contained in:
Josh Vera 2020-01-31 13:44:42 -05:00 committed by GitHub
parent c53416c5f7
commit 64cc956ed8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
semantic-scope-graph/src/Control/Effect/Sketch.hs
View File

@ -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)