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

Rename k to q

Browse Source
This commit is contained in:
joshvera 2017-04-11 18:22:24 -04:00
parent 630c607f2b
commit 1a78d5e1ea
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/RWS.hs
View File

@ -93,16 +93,16 @@ run :: (Eq1 f, Functor f, HasField fields Category, HasField fields (Maybe Featu
-> t (Term f (Record fields))
-> Eff (RWS f fields ': e) (RWSEditScript f fields)
-> Eff e (RWSEditScript f fields)
run editDistance canCompare as bs = relay pure (\m k -> case m of
SES -> k $ ses (gliftEq (==) `on` fmap category) as bs
run editDistance canCompare as bs = relay pure (\m q -> case m of
SES -> q $ ses (gliftEq (==) `on` fmap category) as bs
(GenFeaturizedTermsAndDiffs sesDiffs) ->
k $ genFeaturizedTermsAndDiffs sesDiffs
q $ genFeaturizedTermsAndDiffs sesDiffs
(FindNearestNeighoursToDiff allDiffs featureAs featureBs) ->
k $ findNearestNeighboursToDiff editDistance canCompare allDiffs featureAs featureBs
q $ findNearestNeighboursToDiff editDistance canCompare allDiffs featureAs featureBs
(DeleteRemaining allDiffs remainingDiffs) ->
k $ deleteRemaining allDiffs remainingDiffs
q $ deleteRemaining allDiffs remainingDiffs
(InsertMapped allDiffs mappedDiffs) ->
k $ insertMapped allDiffs mappedDiffs)
q $ insertMapped allDiffs mappedDiffs)
type Diff f fields = These (Term f (Record fields)) (Term f (Record fields))