diff --git a/src/Rendering/Graph.hs b/src/Rendering/Graph.hs index db4526b22..1b835ab60 100644 --- a/src/Rendering/Graph.hs +++ b/src/Rendering/Graph.hs @@ -99,5 +99,3 @@ instance (ConstructorName syntax, Foldable syntax, HasField fields1 Range, HasFi let root = vertex (DiffVertex i a) subGraph <- foldl' (\acc x -> overlay <$> acc <*> local (const root) x) (pure mempty) syntax pure (parent `connect` root `overlay` subGraph) - - -- flatTerm (n, r, s) = FlatTerm n r s diff --git a/src/Semantic/Diff.hs b/src/Semantic/Diff.hs index 1a914abf0..efe756ec7 100644 --- a/src/Semantic/Diff.hs +++ b/src/Semantic/Diff.hs @@ -24,10 +24,6 @@ import Semantic.Task as Task import Serializing.Format import Rendering.JSON (SomeJSON (..)) 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 ToCDiffRenderer = withParsedBlobPairs (decorate . declarationAlgebra) (render . renderToCDiff) >=> serialize JSON