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

Move q application out

Browse Source
This commit is contained in:
joshvera 2017-04-11 18:23:32 -04:00
parent 1a78d5e1ea
commit 95beaf8446
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 q -> case m of
SES -> q $ ses (gliftEq (==) `on` fmap category) as bs
run editDistance canCompare as bs = relay pure (\m q -> q $ case m of
SES -> ses (gliftEq (==) `on` fmap category) as bs
(GenFeaturizedTermsAndDiffs sesDiffs) ->
q $ genFeaturizedTermsAndDiffs sesDiffs
genFeaturizedTermsAndDiffs sesDiffs
(FindNearestNeighoursToDiff allDiffs featureAs featureBs) ->
q $ findNearestNeighboursToDiff editDistance canCompare allDiffs featureAs featureBs
findNearestNeighboursToDiff editDistance canCompare allDiffs featureAs featureBs
(DeleteRemaining allDiffs remainingDiffs) ->
q $ deleteRemaining allDiffs remainingDiffs
deleteRemaining allDiffs remainingDiffs
(InsertMapped allDiffs mappedDiffs) ->
q $ insertMapped allDiffs mappedDiffs)
insertMapped allDiffs mappedDiffs)
type Diff f fields = These (Term f (Record fields)) (Term f (Record fields))