github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

🔥 some stray blank lines.

Browse Source
This commit is contained in:
Rob Rix 2016-08-10 09:48:16 -04:00
parent b43494afda
commit 48213c4134
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Interpreter.hs
View File

@ -24,7 +24,6 @@ type Comparable leaf annotation = Term leaf annotation -> Term leaf annotation -
-- | Constructs a diff from the CofreeF containing its annotation and syntax. This function has the opportunity to, for example, cache properties in the annotation. -- | Constructs a diff from the CofreeF containing its annotation and syntax. This function has the opportunity to, for example, cache properties in the annotation.
type DiffConstructor leaf annotation = CofreeF (Syntax leaf) (Both annotation) (Diff leaf annotation) -> Diff leaf annotation type DiffConstructor leaf annotation = CofreeF (Syntax leaf) (Both annotation) (Diff leaf annotation) -> Diff leaf annotation
-- | Diff two terms recursively, given functions characterizing the diffing. -- | Diff two terms recursively, given functions characterizing the diffing.
diffTerms :: (Eq leaf, Eq (Record fields), HasField fields Category, HasField fields (Vector.Vector Double)) diffTerms :: (Eq leaf, Eq (Record fields), HasField fields Category, HasField fields (Vector.Vector Double))
=> DiffConstructor leaf (Record fields) -- ^ A function to wrap up & possibly annotate every produced diff. => DiffConstructor leaf (Record fields) -- ^ A function to wrap up & possibly annotate every produced diff.

1
src/TreeSitter.hs
View File

@ -113,7 +113,6 @@ documentToTerm language document blob = alloca $ \ root -> do
let info = range .: (categoriesForLanguage language (toS name)) .: RNil let info = range .: (categoriesForLanguage language (toS name)) .: RNil
pure $! termConstructor (source blob) sourceSpan info children pure $! termConstructor (source blob) sourceSpan info children
getChild node n out = do getChild node n out = do
_ <- ts_node_p_named_child node n out _ <- ts_node_p_named_child node n out
toTerm out toTerm out