github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Sample definition for module stuff. Now to write some Generics code.

Browse Source
This commit is contained in:
Patrick Thomson 2020-01-13 10:33:09 -05:00
parent bb01a368fb
commit 24053a1477
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
semantic-python/src/Language/Python.hs
View File

@ -8,6 +8,7 @@ module Language.Python
-- import Control.Carrier.Reader
-- import Control.Monad.IO.Class
import Data.Foldable
import Data.ScopeGraph (ToScopeGraph (..))
import qualified Data.ScopeGraph as ScopeGraph
import qualified Language.Python.Tags as PyTags
@ -24,20 +25,8 @@ instance TS.Unmarshal Term where
instance Tags.ToTags Term where
tags src = Tags.runTagging src . PyTags.tags . getTerm
instance ScopeGraph.ToScopeGraph Term where
scopeGraph = ScopeGraph.scopeGraph . getTerm
instance ToScopeGraph Py.Module where
scopeGraph _ = pure (ScopeGraph.empty)
-- scopeGraph Py.Module { Py.extraChildren = _stmts } = do
-- parent <- ask
-- self <- liftIO $ ScopeGraph.scope
-- pure $ ScopeGraph.edges [(parent, self)]
-- parent <- ask
-- self <- ScopeGraph . G.vertex . Node Scope <$> liftIO newUnique
-- foldr (\item acc -> do {
-- x <- acc;
-- y <- scopeGraph src item;
-- pure (x --> y);
-- }) (pure (parent --> self)) stmts
scopeGraph Py.Module { Py.extraChildren = stmts } = fold <$> traverse scopeGraph stmts