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

Reformat genericAlgorithmFor’s type signature.

Browse Source
This commit is contained in:
Rob Rix 2017-09-25 12:24:42 -04:00
parent e528bd3c6c
commit c7685757d1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Algorithm.hs
View File

@ -126,7 +126,10 @@ class Diffable f where
-> g (f b)
subalgorithmFor _ _ _ = empty
genericAlgorithmFor :: (Generic1 f, GDiffable (Rep1 f)) => f term1 -> f term2 -> Algorithm term1 term2 result (f result)
genericAlgorithmFor :: (Generic1 f, GDiffable (Rep1 f))
=> f term1
-> f term2
-> Algorithm term1 term2 result (f result)
genericAlgorithmFor a b = to1 <$> galgorithmFor (from1 a) (from1 b)