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

More extra imports

Browse Source
This commit is contained in:
Timothy Clem 2018-09-11 11:33:59 -07:00
parent b9e2491d74
commit 177ce176e4
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Rendering/Graph.hs
View File

@ -99,5 +99,3 @@ instance (ConstructorName syntax, Foldable syntax, HasField fields1 Range, HasFi
let root = vertex (DiffVertex i a) let root = vertex (DiffVertex i a)
subGraph <- foldl' (\acc x -> overlay <$> acc <*> local (const root) x) (pure mempty) syntax subGraph <- foldl' (\acc x -> overlay <$> acc <*> local (const root) x) (pure mempty) syntax
pure (parent `connect` root `overlay` subGraph) pure (parent `connect` root `overlay` subGraph)
-- flatTerm (n, r, s) = FlatTerm n r s

4
src/Semantic/Diff.hs
View File

@ -24,10 +24,6 @@ import Semantic.Task as Task
import Serializing.Format import Serializing.Format
import Rendering.JSON (SomeJSON (..)) import Rendering.JSON (SomeJSON (..))
import qualified Rendering.JSON as JSON import qualified Rendering.JSON as JSON
import qualified Language.TypeScript.Assignment as TypeScript
import qualified Language.Ruby.Assignment as Ruby
import qualified Language.JSON.Assignment as JSON
import qualified Language.Python.Assignment as Python
runDiff :: (Member Distribute effs, Member (Exc SomeException) effs, Member (Lift IO) effs, Member Task effs, Member Telemetry effs) => DiffRenderer output -> [BlobPair] -> Eff effs Builder runDiff :: (Member Distribute effs, Member (Exc SomeException) effs, Member (Lift IO) effs, Member Task effs, Member Telemetry effs) => DiffRenderer output -> [BlobPair] -> Eff effs Builder
runDiff ToCDiffRenderer = withParsedBlobPairs (decorate . declarationAlgebra) (render . renderToCDiff) >=> serialize JSON runDiff ToCDiffRenderer = withParsedBlobPairs (decorate . declarationAlgebra) (render . renderToCDiff) >=> serialize JSON