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

Move SES into its own file.

Browse Source
This commit is contained in:
Rob Rix 2015-11-18 07:11:05 -08:00
parent b122712470
commit ae27e9cbbe
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Interpreter.hs
View File

@ -8,6 +8,7 @@ import Diff
import Syntax import Syntax
import Data.Map import Data.Map
import Patch import Patch
import SES
constructAndRun :: Term a Info -> Term a Info -> Maybe (Diff a) constructAndRun :: Term a Info -> Term a Info -> Maybe (Diff a)
constructAndRun a b = constructAndRun a b =
@ -35,9 +36,7 @@ run (Free (ByKey a b f)) = run $ f byKey where
inserted = (Pure . Insert) <$> difference b a inserted = (Pure . Insert) <$> difference b a
patched = intersectionWith interpret a b patched = intersectionWith interpret a b
run (Free (ByIndex a b f)) = run $ f $ ses a b where run (Free (ByIndex a b f)) = run $ f $ ses a b
ses a b | Prelude.null a = (Pure . Insert) <$> b
ses a b | Prelude.null b = (Pure . Delete) <$> a
interpret :: Term a Info -> Term a Info -> Diff a interpret :: Term a Info -> Term a Info -> Diff a
interpret a b = maybeReplace $ constructAndRun a b where interpret a b = maybeReplace $ constructAndRun a b where

6
src/SES.hs
View File

@ -1 +1,7 @@
module SES where module SES where
import Patch
import Control.Monad.Free
ses a b | Prelude.null a = (Pure . Insert) <$> b
ses a b | Prelude.null b = (Pure . Delete) <$> a