github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +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 #-}
module Rendering.Imports
( renderToImports
, ModuleSummary(..)
, ImportSummary(..)
) where
import Analysis.Declaration
@ -23,20 +23,20 @@ import qualified Data.Map as Map
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
mempty = ModuleSummary mempty
mappend (ModuleSummary m1) (ModuleSummary m2) = ModuleSummary (Map.unionWith (<>) m1 m2)
instance Monoid ImportSummary where
mempty = ImportSummary mempty
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 }
instance ToJSON ModuleSummary where
toJSON (ModuleSummary m) = object [ "modules" .= m ]
instance ToJSON ImportSummary where
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 blob term = ModuleSummary $ toMap (termToModule blob term)
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 = ImportSummary $ toMap (termToModule blob term)
where
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

4
src/Rendering/Renderer.hs
View File

@ -13,7 +13,7 @@ module Rendering.Renderer
, renderToCTerm
, renderSymbolTerms
, renderToSymbols
, ModuleSummary(..)
, ImportSummary(..)
, renderToImports
, renderToTags
, renderDOTDiff
@ -58,7 +58,7 @@ data TermRenderer output where
-- | Render to a list of symbols.
SymbolsTermRenderer :: SymbolFields -> TermRenderer [Value]
-- | 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.
DOTTermRenderer :: TermRenderer ByteString