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

SES returns Either.

Browse Source
This commit is contained in:
Rob Rix 2015-11-18 07:25:26 -08:00
parent e742cf6859
commit 8b3c1aacfd
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/SES.hs
View File

@ -2,8 +2,7 @@ module SES where
import Patch
import Diff
import Control.Monad.Free
ses :: Functor f => Eq a => [a] -> [a] -> [Free f (Patch a)]
ses a b | Prelude.null a = (Pure . Insert) <$> b
ses a b | Prelude.null b = (Pure . Delete) <$> a
ses :: Eq a => [a] -> [a] -> [Either (Patch a) a]
ses a b | Prelude.null a = (Left . Insert) <$> b
ses a b | Prelude.null b = (Left . Delete) <$> a