mirror of
https://github.com/github/semantic.git
synced 2024-12-24 23:42:31 +03:00
More extra imports
This commit is contained in:
parent
b9e2491d74
commit
177ce176e4
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user