github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

Specialize RWS to list inputs.

Browse Source
This commit is contained in:
Rob Rix 2017-06-13 15:11:52 -04:00
parent 22a69851f0
commit 134a60222d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/RWS.hs
View File

@ -51,11 +51,11 @@ data UnmappedTerm f fields = UnmappedTerm {
-- | Either a `term`, an index of a matched term, or nil.
data TermOrIndexOrNone term = Term term | Index Int | None
rws :: (HasField fields (Maybe FeatureVector), Foldable t, Functor f, Eq1 f)
rws :: (HasField fields (Maybe FeatureVector), Functor f, Eq1 f)
=> (Diff f fields -> Int)
-> ComparabilityRelation f fields
-> t (Term f (Record fields))
-> t (Term f (Record fields))
-> [Term f (Record fields)]
-> [Term f (Record fields)]
-> RWSEditScript f fields
rws editDistance canCompare as bs = Eff.run . RWS.run editDistance canCompare as bs $ do
sesDiffs <- ses'