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

Stub in interpretation.

Browse Source
This commit is contained in:
Rob Rix 2015-11-17 17:05:16 -08:00
parent 3829f4492d
commit 7c09fd1503
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Interpreter.hs
View File

@ -1 +1,16 @@
module Interpreter where
import Algorithm
import Control.Monad.Free
import Control.Comonad.Cofree
import Operation
import Diff
recur :: Term a Info -> Term a Info -> Maybe (Diff a)
recur a b =
run algorithm where
algorithm = Free $ Recursive a b Pure
run :: Algorithm a (Diff a) -> Maybe (Diff a)
run (Pure diff) = Just diff