1
1
mirror of https://github.com/github/semantic.git synced 2024-12-26 16:33:03 +03:00

unified operates over diffs annotated with Info.

This commit is contained in:
Rob Rix 2015-11-19 15:06:25 -08:00
parent 4103cfb1e2
commit 0d7261454e

View File

@ -6,7 +6,7 @@ import Syntax
import Term
import Control.Monad.Free
unified :: Diff a annotation -> String -> String -> String
unified :: Diff a Info -> String -> String -> String
unified diff before after =
iter f mapped where
mapped = fmap unifiedPatch diff