github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

s/ModuleSummary/ImportSummary

Browse Source
This commit is contained in:
Timothy Clem 2018-01-25 11:15:10 -08:00
parent f8167a6941
commit 5385069ace
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Rendering/Imports.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE DataKinds, MultiParamTypeClasses, RankNTypes, ScopedTypeVariables, TypeFamilies, TypeOperators, UndecidableInstances #-} {-# LANGUAGE DataKinds, MultiParamTypeClasses, RankNTypes, ScopedTypeVariables, TypeFamilies, TypeOperators, UndecidableInstances #-}
module Rendering.Imports module Rendering.Imports
( renderToImports ( renderToImports
, ModuleSummary(..) , ImportSummary(..)
) where ) where
import Analysis.Declaration import Analysis.Declaration
@ -23,20 +23,20 @@ import qualified Data.Map as Map
import Rendering.TOC (termTableOfContentsBy, declaration, getDeclaration, toCategoryName) import Rendering.TOC (termTableOfContentsBy, declaration, getDeclaration, toCategoryName)
newtype ModuleSummary = ModuleSummary (Map.Map T.Text Module) deriving (Eq, Show) newtype ImportSummary = ImportSummary (Map.Map T.Text Module) deriving (Eq, Show)
instance Monoid ModuleSummary where instance Monoid ImportSummary where
mempty = ModuleSummary mempty mempty = ImportSummary mempty
mappend (ModuleSummary m1) (ModuleSummary m2) = ModuleSummary (Map.unionWith (<>) m1 m2) mappend (ImportSummary m1) (ImportSummary m2) = ImportSummary (Map.unionWith (<>) m1 m2)
instance Output ModuleSummary where instance Output ImportSummary where
toOutput = toStrict . (<> "\n") . encodePretty' defConfig { confCompare = compare, confIndent = Spaces 2 } toOutput = toStrict . (<> "\n") . encodePretty' defConfig { confCompare = compare, confIndent = Spaces 2 }
instance ToJSON ModuleSummary where instance ToJSON ImportSummary where
toJSON (ModuleSummary m) = object [ "modules" .= m ] toJSON (ImportSummary m) = object [ "modules" .= m ]
renderToImports :: (HasField fields (Maybe ModuleDef), HasField fields (Maybe Declaration), HasField fields Span, Foldable f, Functor f) => Blob -> Term f (Record fields) -> ModuleSummary renderToImports :: (HasField fields (Maybe ModuleDef), HasField fields (Maybe Declaration), HasField fields Span, Foldable f, Functor f) => Blob -> Term f (Record fields) -> ImportSummary
renderToImports blob term = ModuleSummary $ toMap (termToModule blob term) renderToImports blob term = ImportSummary $ toMap (termToModule blob term)
where where
toMap m@Module{..} = Map.singleton moduleName m toMap m@Module{..} = Map.singleton moduleName m
termToModule :: (HasField fields (Maybe ModuleDef), HasField fields (Maybe Declaration), HasField fields Span, Foldable f, Functor f) => Blob -> Term f (Record fields) -> Module termToModule :: (HasField fields (Maybe ModuleDef), HasField fields (Maybe Declaration), HasField fields Span, Foldable f, Functor f) => Blob -> Term f (Record fields) -> Module

4
src/Rendering/Renderer.hs
View File

@ -13,7 +13,7 @@ module Rendering.Renderer
, renderToCTerm , renderToCTerm
, renderSymbolTerms , renderSymbolTerms
, renderToSymbols , renderToSymbols
, ModuleSummary(..) , ImportSummary(..)
, renderToImports , renderToImports
, renderToTags , renderToTags
, renderDOTDiff , renderDOTDiff
@ -58,7 +58,7 @@ data TermRenderer output where
-- | Render to a list of symbols. -- | Render to a list of symbols.
SymbolsTermRenderer :: SymbolFields -> TermRenderer [Value] SymbolsTermRenderer :: SymbolFields -> TermRenderer [Value]
-- | Render to a list of modules that represent the import graph. -- | Render to a list of modules that represent the import graph.
ImportsTermRenderer :: TermRenderer ModuleSummary ImportsTermRenderer :: TermRenderer ImportSummary
-- | Render to a 'ByteString' formatted as a DOT description of the term. -- | Render to a 'ByteString' formatted as a DOT description of the term.
DOTTermRenderer :: TermRenderer ByteString DOTTermRenderer :: TermRenderer ByteString