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

Generalize subalgorithmFor over arbitrary Alternative functors.

Browse Source
This commit is contained in:
Rob Rix 2017-09-22 21:35:37 -04:00
parent 1aa96e3a0e
commit dc32dfdcd9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Algorithm.hs
View File

@ -121,10 +121,11 @@ class Diffable f where
-> Algorithm syntax ann1 ann2 (f (Diff syntax ann1 ann2))
algorithmFor = genericAlgorithmFor
subalgorithmFor :: (a -> Algorithm syntax ann1 ann2 b)
-> (a -> Algorithm syntax ann1 ann2 b)
subalgorithmFor :: Alternative g
=> (a -> g b)
-> (a -> g b)
-> f a
-> Algorithm syntax ann1 ann2 (f b)
-> g (f b)
subalgorithmFor _ _ _ = empty
genericAlgorithmFor :: (Generic1 f, GDiffable (Rep1 f)) => f (Term syntax ann1) -> f (Term syntax ann2) -> Algorithm syntax ann1 ann2 (f (Diff syntax ann1 ann2))